★★★敬请留意★★★:和微软一模一样的记事本的源代码(5) 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
★★★敬请留意★★★:和微软一模一样的记事本的源代码(4) Option ExplicitPrivate Sub CancelButton_Click()OKButton_ClickForm1.Text1.SelText = Text2.TextEnd SubPrivate Sub Command1_Click() If Fstring = "" Then Fstring = Text1.TextElse If Text1.Text
★★★敬请留意★★★:和微软一模一样的记事本的源代码(3) 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
★★★敬请留意★★★:和微软一模一样的记事本的源代码(2) 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
★★★敬请留意★★★:和微软一模一样的记事本的源代码(1) 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使用的几个技巧 把 VB 标准的工具栏变成平面式 平面式的工具栏好象显得很酷!但 VB5 只提供了普通的凸起的工具栏。你是否想把它变成平面的?这似乎很不容易。但事实并非如此,试试: BAS: Public Const WM_USER = &H400Public Const TB_SETSTYLE = WM_USER + 56Public Const TB_GETSTYLE = WM_USER + 57Pu