- 博客(5)
- 收藏
- 关注
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
757
原创 ★★★敬请留意★★★：和微软一模一样的记事本的源代码（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
741
原创 ★★★敬请留意★★★：和微软一模一样的记事本的源代码（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
706
原创 ★★★敬请留意★★★：和微软一模一样的记事本的源代码（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
712
原创 ★★★敬请留意★★★：和微软一模一样的记事本的源代码（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
952
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人