- 博客(6)
- 收藏
- 关注
RSS订阅原创 ★★★敬请留意★★★：和微软一模一样的记事本的源代码（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
2001-06-06 16:50:00
769
原创 ★★★敬请留意★★★：和微软一模一样的记事本的源代码（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
2001-06-06 16:48:00
749
原创 ★★★敬请留意★★★：和微软一模一样的记事本的源代码（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
2001-06-06 16:47:00
720
原创 ★★★敬请留意★★★：和微软一模一样的记事本的源代码（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
2001-06-06 16:45:00
721
原创 ★★★敬请留意★★★：和微软一模一样的记事本的源代码（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
2001-06-06 16:42:00
958
原创 ★★★敬请留意★★★：VB使用的几个技巧
把 VB 标准的工具栏变成平面式 平面式的工具栏好象显得很酷！但 VB5 只提供了普通的凸起的工具栏。你是否想把它变成平面的？这似乎很不容易。但事实并非如此，试试： BAS: Public Const WM_USER = &H400Public Const TB_SETSTYLE = WM_USER + 56Public Const TB_GETSTYLE = WM_USER + 57Pu
2001-05-24 15:46:00
936
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人