deak
码龄22年
  • 6,010
    被访问
  • 6
    原创
  • 1,300,202
    排名
  • 0
    粉丝
  • 0
    铁粉
关注
提问 私信
  • 加入CSDN时间: 2000-11-28
博客简介:

deak的专栏

查看详细资料
  • 0
    领奖
    总分 0 当月 0
个人成就
  • 获得0次点赞
  • 内容获得0次评论
  • 获得0次收藏
创作历程
  • 6篇
    2001年
  • 最近
  • 文章
  • 资源
  • 问答
  • 帖子
  • 视频
  • 课程
  • 关注/订阅/互动
  • 收藏
搜TA的内容
搜索 取消

★★★敬请留意★★★:和微软一模一样的记事本的源代码(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 ·
711 阅读 ·
0 点赞 ·
0 评论

★★★敬请留意★★★:和微软一模一样的记事本的源代码(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 ·
705 阅读 ·
0 点赞 ·
0 评论

★★★敬请留意★★★:和微软一模一样的记事本的源代码(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 ·
653 阅读 ·
0 点赞 ·
0 评论

★★★敬请留意★★★:和微软一模一样的记事本的源代码(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 ·
667 阅读 ·
0 点赞 ·
0 评论

★★★敬请留意★★★:和微软一模一样的记事本的源代码(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 ·
905 阅读 ·
0 点赞 ·
0 评论

★★★敬请留意★★★:VB使用的几个技巧

 把 VB 标准的工具栏变成平面式  平面式的工具栏好象显得很酷!但 VB5 只提供了普通的凸起的工具栏。你是否想把它变成平面的?这似乎很不容易。但事实并非如此,试试: BAS: Public Const WM_USER = &H400Public Const TB_SETSTYLE = WM_USER + 56Public Const TB_GETSTYLE = WM_USER + 57Pu
原创
发布博客 2001.05.24 ·
849 阅读 ·
0 点赞 ·
0 评论