MainFrm.frm
来源:互联网 发布:博客源码资源站 编辑:程序博客网 时间:2024/05/21 18:32
Private Sub Command1_Click()
Call INI_Write("POSITON", "X", Me.Left)
Call INI_Write("POSITON", "Y", Me.Top)
Call INI_Write("POSITON", "HEIGHT", Me.Height)
Call INI_Write("POSITON", "WIDTH", Me.Width)
End Sub
Private Sub Form_Load()
Call Main_Init '应该放这里的!
'设置全局钩子,引用vb_hook.dll文件
Set VBHook = New cSystemHook
VBHook.SetHook
End Sub
Private Sub Form_Paint()
Call AlwaysOnTop(Me.hWnd, True) '修正最顶层问题!
End Sub
'存在问题!
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
'如 果 程 序 不 同 意 关 机 ,Cancel 设 定 为 True
'Cancel = True
Select Case UnloadMode
Case 0:
'窗体右上角的X号关闭窗体
Case 1:
'程序代码关闭窗体,例如Unload Me
Case 2:
'关闭Windows关闭窗体
Case 3:
'在任务管理器中关闭窗体
Case 4:
'MDI窗体被卸载时关闭窗体
End Select
Call Shell_NotifyIcon(NIM_DELETE, nfIconData)
'释放全局钩子
VBHook.RemoveHook
Set VBHook = Nothing
End
End Sub
Private Sub Timer1_Timer() 'Timer的Interval值设为300吧
Call QQHiden(Me)
End Sub
'鼠标钩子
Private Sub VBHook_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
'获得RGB,分解RGB颜色值
'颜色分解有问题!和系统颜色有点差
Dim R As Integer, G As Integer, B As Integer, Color As Long
Color = GetColorFromPoint(x, y)
R = (Color Mod 256)
B = (Int(Color / 65536))
G = ((Color - (B * 65536) - R) / 256)
Lab_XY.Caption = "X坐标:" & x & vbCrLf & "Y坐标:" & y & vbCrLf & "R:" & R & " G:" & G & " B:" & B
Lab_XY.BackColor = RGB(R, G, B)
End Sub
- MainFrm.frm
- MainFrm.cpp
- MainFrm.h
- FirstFrm.frm
- Form1.frm
- FRM-92101
- FRM-92050
- MainFrm.cpp&&ServerThread.cpp&&SheetConfig.cpp
- MAINFRM中调整view的大小
- 可变长度参数 char frm,... char frm...
- 可变长度参数 char frm,... char frm...
- FRM-18108 FRM-10102错误解决
- folder错误frm-41097,frm-41099
- FRM-18108 FRM-10102错误解决
- frm,myd,myi 数据库文件
- FRM-40654问题解决
- CFA与FRM
- FRM-92101解决办法
- 《C++ primer》学习笔记之二十二: 函数指针
- 《C++ primer》学习笔记之二十三: namespace的定义和使用
- FuctionMod.bas
- 《C++ primer》学习笔记之二十四:template function 的定义
- Module.bas
- MainFrm.frm
- 求不大于指定整数的最大素数
- VRSW.vbw
- 《C++ primer》学习笔记之二十五:template function 的实例化
- VRSW.vbp
- VRSW.INI
- 《C++ primer》学习笔记之二十六:None-type template parameter
- 《C++ primer》学习笔记之二十七:当模板参数是另一个模板类的实例时写法要注意
- SWIG,把C/C++ API 导出成Java,C#,Python,Ruby,Php的类库