deak的专栏

Type Formstate    Deleted As Integer    Dirty As Integer    Color As LongEnd TypePublic Fstate As FormstatePublic Fstring As StringPublic Gstring As StringPublic Sstring As StringPublic StartPos As

Option ExplicitPrivate Sub CancelButton_Click()OKButton_ClickForm1.Text1.SelText = Text2.TextEnd SubPrivate Sub Command1_Click() If Fstring = "" Then    Fstring = Text1.TextElse    If Text1.Text

 Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As LongPrivate Const EM_GETLINECOUNT = &HBAPriv

 Public Sub Command1_Click()Dim FoundPos As IntegerIf Fstring = "" Then    Fstring = Text1.TextElse    If Text1.Text "" Then    Fstring = Text1.Text    End If    End IfIf Option1.Value = True The

Private Declare Function htmlhelp Lib _ "hhctrl.ocx" Alias "HtmlHelpA" _ (ByVal hwndCaller As Long, _ByVal pszFile As String, ByVal _uCommand As Long, ByVal dwData As Long) As LongDim Changed As Boo

 把 VB 标准的工具栏变成平面式  平面式的工具栏好象显得很酷！但 VB5 只提供了普通的凸起的工具栏。你是否想把它变成平面的？这似乎很不容易。但事实并非如此，试试： BAS: Public Const WM_USER = &H400Public Const TB_SETSTYLE = WM_USER + 56Public Const TB_GETSTYLE = WM_USER + 57Pu