★★★敬请留意★★★：和微软一模一样的记事本的源代码（3）

最新推荐文章于 2007-12-07 10:39:56 发布

原创最新推荐文章于 2007-12-07 10:39:56 发布 · 783 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#微软 #integer #command #scroll #function #user

博客展示了一段VB代码，主要使用了SendMessage函数。代码中定义了常量和变量，在Command1_Click事件里，通过SendMessage获取文本行数，根据输入行数进行操作；Command2_Click事件用于卸载当前窗体，还包含了窗体加载和激活的相关代码。

部署运行你感兴趣的模型镜像

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

您可能感兴趣的与本文相关的镜像

PyTorch 2.6

PyTorch

Cuda

PyTorch 是一个开源的 Python 机器学习库，基于 Torch 库，底层由 C++ 实现，应用于人工智能领域，如计算机视觉和自然语言处理