锐客网

  1. 首页 > 睿知 > it技术 > >

vb.net漂亮界面 vb做界面( 三 )

IT技术界面


但是这里的SetFocus会和控件的SetFocus会搞混淆，改改吧，
Private Declare Function nSetFocus Lib "user32" Alias "SetFocus" （ByVal hwnd As Long） As Long
只要Alias指向的接口是对的前面的函数名称简直就是摆设，
在建立一个过程:
Public Function sSetFocus（） As Long
Dim CPos As POINTAPI，Successfull As Boolean，hWnd As Long
DoEvents
Successfull ＝GetCursorPos（CPos）
If Not Successfull Then Exit Sub ’如果未成功则退出该过程
hWnd＝WindowFromPoint（CPos.x，CPos.y）
sSetFocus=nSetFocus(hWnd)
End Sub
在窗体上放一个Timer控件，Interval 属性设为100，就是0.1秒，在Timer1控件的Timer事件中填入sSetFocus，在运行一下看看，效果怎么样?
可是有的先生小姐要问了，TextBox难道就不能用ScrollBar吗?非也非也，选 工程－部件－Microsoft Windows Common Controls－2 6.0 （SP3）就是你的答案，至于卷动TextBox就去研究SendMessage函数吧 ， 否则又有骗稿费之嫌，如果想作绿色软件，不想用控件 ， 可以用俺前面讲到的Label控件 ， 利用字体 Webdings 来模拟ScrollBar ， 需要注意的是，如果模拟ScrollBar，上下左右箭头分别是5，6，3，4，别忘了把字体设为Webdings
再来讲讲窗体的美化，其实将BorderStyle属性设为0就是很好的2D美化;）可是，这样一来 ， 问题又来了，怎么办?凡事都要请API来帮忙，这里需要两个API，一下是该API的声明:
Public Declare Function ReleaseCapture Lib "user32" Alias "ReleaseCapture" （） As Long '这个API是用来解下鼠标的追踪器，关于他的过多用法以及详细介绍可以写信向俺咨询，
还有
Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" （ByVal hwnd As Long， ByVal wMsg As Long，ByVal wParam As Long，lParam As Any） As Long’这个该不要俺多介绍了吧
Public Const HTCAPTION ＝ 2 ’代表窗体的标题区
Public Const WM_NCLBUTTONDOWN ＝ HA1 ’表示非工作区左键按下
原理很简单，卸下鼠标追踪器后向Form发送一个移动窗体的消息，其实做到这一点的方法很多，但俺个人认为这一种最简单，添加一个过程:
Public Sub MoveForm（hWnd As Long）
DoEvents
ReleaseCapture
SendMessage hWnd，WM_NCLBUTTONDOWN，HTCAPTION， 0
End Sub
在Form的MouseMove事件中:
Private Sub Form_MouseMove（Button As Integer， Shift As Integer，X As Single，Y As Single）
If Button＝vbLeftButton Then MoveForm hWnd’如果按下鼠标左键就移动窗体
End Sub
台下的这位小姐又纳闷了，可是光秃秃的窗体没有了标题栏也不好看，俺要向这为小姐推荐俺的东东－ActiveX控件，ToolSign，需要的人可以写信给俺联系 ， 
该控件需要在代码编辑区域内添加一下代码:
’一下声明是用在ToolSign的 AutoQuit属性的
Public Const EXIT_FORCE ＝ 2 ’注意，在VB中运行的时候如果选用此退出方式 ， VB也会退出
Public Const EXIT_MESSAGE ＝ 1 ’由操作系统发送关闭消息
Public Const EXIT_CUSTOM ＝ Not （EXIT_FORCE Or EXIT_MESSAGE） ’自定义
将其注册后在部件栏中把e－Dogkid Studio Tools Sign打钩，添加到工具箱中，双击加入到窗体中，
在Form的Load事件中添加一下初始化代码:
Private Sub Form_Load（）
With Sign1
.AutoQuit ＝ EXIT_CUSTOM
.ParentsHWND ＝ hWnd ’填了此属性可以直接用ToolSign来移动窗体而不需要前面的代码
End With
End Sub
Sign1的Click事件
Private Sub Sign1_Click（）
End ’关闭程序
End Sub
在Form的Resize事件中添加一下代码:
Private Sub Form_Resize（）
Sign1.Width ＝ Width

推荐阅读


上一篇：gis根据属性表选择，arcgis根据属性选择

下一篇：js如何实现简单的语法高亮，js高亮关键字