★★★敬请留意★★★:和微软一模一样的记事本的源代码(3)

原创 2001年06月06日 16:47:00

 

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Const EM_GETLINECOUNT = &HBA
'Private Const EM_SCROLL = &HB5
'Private Const SB_LINEDOWN = 1
Dim Sline As Integer
Dim Lcount As Integer


 

'End Sub

Private Sub Command1_Click()
  Dim i As Integer
  Form1.Text1.SelStart = 0
  Form1.Text1.SetFocus
  Sline = SendMessage(Form1.Text1.hwnd, EM_GETLINECOUNT, 0&, 0&)
  Lcount = CInt(Text1.Text)
  If Lcount <= Sline Then
 
    For i = 1 To Lcount - 1
    SendKeys "{DOWN}"
    Next i
    Form3.Hide
  Else
    MsgBox "line over range"
   
  End If
  'Unload Form3
 ' Form3.Text1.SetFocus
End Sub


Private Sub Command2_Click()
Unload Me
End Sub

Private Sub Form_Activate()
Form_Load
End Sub

Private Sub Form_Load()

Text1.SelStart = 0
If Text1.Text = "" Then
    Text1.Text = 0
Else
    Text1.Text = Lcount
End If


Text1.SelLength = Len(Lcount)
Form3.Show
Form3.Text1.SetFocus
End Sub

 

★★★敬请留意★★★:和微软一模一样的记事本的源代码(1)

Private Declare Function htmlhelp Lib _ "hhctrl.ocx" Alias "HtmlHelpA" _ (ByVal hwndCaller As Long, ...
  • deak
  • deak
  • 2001年06月06日 16:42
  • 749

★★★敬请留意★★★:和微软一模一样的记事本的源代码(5)

Type Formstate    Deleted As Integer    Dirty As Integer    Color As LongEnd TypePublic Fstate As Fo...
  • deak
  • deak
  • 2001年06月06日 16:50
  • 618

★★★敬请留意★★★:和微软一模一样的记事本的源代码(2)

 Public Sub Command1_Click()Dim FoundPos As IntegerIf Fstring = "" Then    Fstring = Text1.TextElse ...
  • deak
  • deak
  • 2001年06月06日 16:45
  • 569

★★★敬请留意★★★:和微软一模一样的记事本的源代码(4)

Option ExplicitPrivate Sub CancelButton_Click()OKButton_ClickForm1.Text1.SelText = Text2.TextEnd Sub...
  • deak
  • deak
  • 2001年06月06日 16:48
  • 608

★★★敬请留意★★★:和微软一模一样的记事本的源代

  • zgqtxwd
  • zgqtxwd
  • 2008年05月01日 05:28
  • 100

C#记事本源代码(包括详细注释)

拖放控件:  menuStrip  toolStrip  fontDialog  colorDialog  contextMenuStrip  statusStrip  timer (两个) 《拓展...
  • ou832339
  • ou832339
  • 2014年03月25日 01:46
  • 4765

用EmEditor替换掉Windows自带的记事本方法

用EmEditor替换掉Windows自带的记事本方法 前言:EmEditor的功能的确比Windows自带的记事本的功能强悍的不是一星半点,一直想把Windows自带的记事本给替换掉,可是...
  • kxjrzyk
  • kxjrzyk
  • 2015年12月31日 16:21
  • 1427

java记事本源代码

import java.awt.CheckboxMenuItem; import java.awt.Color; import java.awt.Container; import java.awt....
  • BloodyDmusic
  • BloodyDmusic
  • 2016年07月27日 19:39
  • 6134

android记事本源代码下载,很简单的代码实例,绝对给力

原文:android记事本源代码下载,很简单的代码实例,绝对给力 源代码下载地址:http://www.zuidaima.com/share/1840866736786432.htm ...
  • yaerfeng
  • yaerfeng
  • 2016年10月12日 10:09
  • 4130

android 记事本程序源码

应用实现密码登陆,记事本内容可增删改除等操作,实现了记事本的基本功能。 1、代码的目录 密码登陆使用的是sharepreference记录输入的密码 SharedPreferences pref...
  • u011324501
  • u011324501
  • 2016年05月30日 10:18
  • 9542
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:★★★敬请留意★★★:和微软一模一样的记事本的源代码(3)
举报原因:
原因补充:

(最多只允许输入30个字)