自定义博客皮肤VIP专享

*博客头图:

格式为PNG、JPG,宽度*高度大于1920*100像素,不超过2MB,主视觉建议放在右侧,请参照线上博客头图

请上传大于1920*100像素的图片!

博客底图:

图片格式为PNG、JPG,不超过1MB,可上下左右平铺至整个背景

栏目图:

图片格式为PNG、JPG,图片宽度*高度为300*38像素,不超过0.5MB

主标题颜色:

RGB颜色,例如:#AFAFAF

Hover:

RGB颜色,例如:#AFAFAF

副标题颜色:

RGB颜色,例如:#AFAFAF

自定义博客皮肤

-+
  • 博客(6)
  • 收藏
  • 关注

原创 ★★★敬请留意★★★:和微软一模一样的记事本的源代码(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 711

原创 ★★★敬请留意★★★:和微软一模一样的记事本的源代码(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 705

原创 ★★★敬请留意★★★:和微软一模一样的记事本的源代码(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 653

原创 ★★★敬请留意★★★:和微软一模一样的记事本的源代码(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 667

原创 ★★★敬请留意★★★:和微软一模一样的记事本的源代码(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 905

原创 ★★★敬请留意★★★: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 849

空空如也

空空如也

TA创建的收藏夹 TA关注的收藏夹

TA关注的人

提示
确定要删除当前文章?
取消 删除