VB小技巧.doc

以文本方式查看主题-??BSoft编程论坛(/code/index.asp)--??『ＶＢ编程』??(/code/list.asp?boardid=1)??VB编程小技巧(/code/dispbbs.asp?boardid=1id=453) --??作者：syfthree--??发布时间：2003-9-25 22:22:30--??VB编程小技巧欢迎投稿 Dim FontCount as integerFor FontCount = 0 To Screen.FontCount - 1????List1.AddItem Screen.Fonts(FontCount)Next --??作者：wwwpan2000--??发布时间：2003-9-26 13:21:19--??防止将重复项目添加到列表框中:防止将重复项目添加到列表框中:(当然用循环也可以实现) Option ExplicitPrivate Declare Function SendMessageFind Lib user32 Alias SendMessageA (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Integer, ByVal lParam As String) As LongConst WM_USER = H400Const LB_ERR = (-1)Const LB_FINDSTRING = H18FPrivate Sub Form_Load()牋牋NDList1.AddItem Item1牋牋stList1.AddItem Item2牋牋stList1.AddItem Item3End SubPrivate Sub Command1_Click()牋牋stCheckForDupesEnd SubSub CheckForDupes()牋牋ecDim Ret As Long牋牋m 牋牋m \检查Text1.Text的值是否已出现过Ret = SendMessageFind(List1.hwnd, LB_FINDSTRING, 0, Text1.Text)????If Ret = LB_ERR Then????????List1.AddItem Text1.Text????Else????????List1.ListIndex = Ret????????MsgBox 重复啦!!!, 32, BSoft提示End IfEnd Sub [此贴子已经被作者于2004-3-11 12:28:24编辑过] --??作者：syfthree--??发布时间：2003-9-26 14:36:29--??自动选定TextBox中原有字符TextBox得到输入焦点时，自动选定TextBox中原有字符的技巧：SelectAllTxt Public Sub SelectAllTxt()????With Screen.ActiveForm??????\桌面当前窗体If (TypeOf .ActiveControl Is TextBox) Then????\如果当前选定的控件为TextBox.ActiveControl.SelStart = 0????????????????\那么从TextBox中字符的开头选择.ActiveControl.SelLength = Len(.ActiveControl)?? \选择长度为TextBox中字符的长度End If????End WithEnd SubPrivate Sub Text1_GotFocus()????SelectAllTxt?? \调用过程End Sub  --??作者：cofen--??发布时间：2003-9-27 9:29:47--?? --??作者：wwwpan2000--??发布时间：2003-9-27 19:00:02--??截屏代码(可截屏整个Screen/当前活动界面) Option ExplicitPrivate Declare Sub keybd_event Lib user32 (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)Const theScreen = 0??\整个ScreenConst theForm = 1????\当前活动界面Private Sub Command1_Click()Call keybd_event(vbK