<?xml version="1.0" encoding="utf-8" ?><rss version="2.0"><channel><title><![CDATA[deak的专栏]]></title><description><![CDATA[]]></description><link>https://blog.csdn.net/deak</link><language>zh-cn</language><generator>https://blog.csdn.net/</generator><copyright><![CDATA[Copyright &copy; deak]]></copyright><item><title><![CDATA[★★★敬请留意★★★：和微软一模一样的记事本的源代码（5）]]></title><link>https://blog.csdn.net/deak/article/details/5997</link><guid>https://blog.csdn.net/deak/article/details/5997</guid><author>deak</author><pubDate>Wed, 06 Jun 2001 16:50:00 +0800</pubDate><description><![CDATA[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 ]]></description><category></category></item><item><title><![CDATA[★★★敬请留意★★★：和微软一模一样的记事本的源代码（4）]]></title><link>https://blog.csdn.net/deak/article/details/5996</link><guid>https://blog.csdn.net/deak/article/details/5996</guid><author>deak</author><pubDate>Wed, 06 Jun 2001 16:48:00 +0800</pubDate><description><![CDATA[Option ExplicitPrivate Sub CancelButton_Click()OKButton_ClickForm1.Text1.SelText = Text2.TextEnd SubPrivate Sub Command1_Click() If Fstring = "" Then    Fstring = Text1.TextElse    If Text1.Text  ]]></description><category></category></item><item><title><![CDATA[★★★敬请留意★★★：和微软一模一样的记事本的源代码（3）]]></title><link>https://blog.csdn.net/deak/article/details/5995</link><guid>https://blog.csdn.net/deak/article/details/5995</guid><author>deak</author><pubDate>Wed, 06 Jun 2001 16:47:00 +0800</pubDate><description><![CDATA[ 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]]></description><category></category></item><item><title><![CDATA[★★★敬请留意★★★：和微软一模一样的记事本的源代码（2）]]></title><link>https://blog.csdn.net/deak/article/details/5994</link><guid>https://blog.csdn.net/deak/article/details/5994</guid><author>deak</author><pubDate>Wed, 06 Jun 2001 16:45:00 +0800</pubDate><description><![CDATA[ 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]]></description><category></category></item><item><title><![CDATA[★★★敬请留意★★★：和微软一模一样的记事本的源代码（1）]]></title><link>https://blog.csdn.net/deak/article/details/5993</link><guid>https://blog.csdn.net/deak/article/details/5993</guid><author>deak</author><pubDate>Wed, 06 Jun 2001 16:42:00 +0800</pubDate><description><![CDATA[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]]></description><category></category></item><item><title><![CDATA[★★★敬请留意★★★：VB使用的几个技巧]]></title><link>https://blog.csdn.net/deak/article/details/5992</link><guid>https://blog.csdn.net/deak/article/details/5992</guid><author>deak</author><pubDate>Thu, 24 May 2001 15:46:00 +0800</pubDate><description><![CDATA[ 把 VB 标准的工具栏变成平面式  平面式的工具栏好象显得很酷！但 VB5 只提供了普通的凸起的工具栏。你是否想把它变成平面的？这似乎很不容易。但事实并非如此，试试： BAS: Public Const WM_USER = &H400Public Const TB_SETSTYLE = WM_USER + 56Public Const TB_GETSTYLE = WM_USER + 57Pu]]></description><category></category></item></channel></rss>