- 博客(6)
- 资源 (21)
- 收藏
- 关注
原创 VB 实现国际化
1. 利用资源文件保存国际化列表2.“外接程序”--“外接程序管理器”--“VB6 资源编辑器”就可以编辑资源文件3.部分代码 窗体加载Private Sub Form_Load()Dim LocaleID As Long LocaleID = GetSystemDefaultLCID Select Case LocaleID 英文 Ca
2009-12-31 17:04:00 995
原创 VB读取注册表
Private Type SECURITY_ATTRIBUTES nLength As Long lpSecurityDescriptor As Long bInheritHandle As BooleanEnd TypeDim lang As StringPrivate Declare Function RegOpenKeyEx Lib "advapi
2009-12-31 16:59:00 1529
原创 创建IE和改变IE的标题
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Long) As LongPrivate Declare Function FindWindowEx Lib
2009-12-31 16:33:00 442
原创 浮雕效果
原理: 对图像像素点的像素值分别与相邻像素点的像素值相减后加上128, 然后将其作为新的像素点的值.效果图:代码实现:浮雕效果 private void button1_Click(object sender, EventArgs e){//以浮雕效果显示图像
2009-12-26 11:26:00 717 1
原创 底片效果
原理: GetPixel方法获得每一点像素的值, 然后再使用SetPixel方法将取反后的颜色值设置到对应的点.效果图: 代码实现: 底片效果 private void button1_Click(object sender, EventArgs e){//以底片效果显示图像
2009-12-26 11:24:00 851 1
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人