正文
vb.net区域函数 vbnet function
提示：扫一扫查出行【扫一扫了解最新限行尾号】
复制提示
VB.NET中，如何获得文本框中可见区域的首行的行号？
可先计算出文本框TextBox1中vb.net区域函数的总行数vb.net区域函数，然后在行号框TextBox2中填上从1到总行数vb.net区域函数的行号。
再用API函数GetScrollPos分别获得文本框和行号框当前行号，最后再使用API函数SendMessage使行号框的行号滚动到对应的行数。
因为文本框的滚动条没有滚动事件，可以暂时使用一个Timer定时刷新，虽然方法笨vb.net区域函数了点，但暂时只能这么用了
代码如下：
Private Declare Function GetScrollPos Lib "user32" (ByVal handle As IntPtr, ByVal nbar As Integer) As Integer
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As IntPtr, ByVal wMsg As Integer, ByVal wParam As Integer, ByVal lParam As Integer) As Integer
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim a as integer
a = GetScrollPos(TextBox1.Handle, 1)
Dim b as integer
b = GetScrollPos(TextBox2.Handle, 1)
SendMessage(TextBox2.Handle, HB6, 0, a-b)
End Sub
相关问答
Q1: VB.net关于类之间函数的调用问题。
如上面所说，你可能还不太了解类、函数等的作用。
类可以用来封装一系列操作，或者是一类对象的特性。像上面的描述，有可能是滥用类了。
建议你这样，弄一个专门的运算类，里面有四个运算的函数，比如：
Class 运算
Shared Function 加(ByVal 加数1 As Decimal, ByVal 加数2 As Decimal) As Decimal
'举个例子
Return 加数1 ＋ 加数2 '百度打不出英文加号，你自己改一下
Exit Function
End Function
Shared Function 减(ByVal 被减数 As Decimal, ByVal 减数 As Decimal) As Decimal
'举个例子
Return 被减数 - 减数
Exit Function
End Function
End Class
上面我写了两个例子，你可以照抄然后自己写乘除的，总之不要滥用类就行。
PS：Shared函数的使用不需要类被实例化，可以直接这样使用：
Msgbox(运算.加(1,2).ToString)
你会发现“运算”是蓝色的
Q2: 我想使用VB.NET里面的公共函数怎么办啊Microsoft.VisualBasic命名空间里的函数不够用
字符串转换为数字 ,简单: Convert.toInt32(字符串) ,必须try 啊这样就可以排除 字母和空 的干扰
Q3: VB.NET常用函数有哪些
常用不常用，要看每个人的编程方向和使用习惯的！一般字符串函数和类型转换函数都是要用的
Q4: VB.NET自定义函数
很简单，在end select前再多加一种情况case else return "XXXx",因为你只提供了0-9这10种情况
Public Function Zuhe(ByVal qa As String) As String
Select Case qa
Case "0"
Return "1"
Case "1"
Return "3"
Case "2"
Return "4"
Case "3"
Return "6"
Case "4"
Return "2"
Case "5"
Return "8"
Case "6"
Return "9"
Case "7"
Return "7"
Case "8"
Return "5"
Case "9"
Return "0"
Case else
Return "XXXX"
End Select
End Function
vb.net区域函数的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于vbnet function、vb.net区域函数的信息别忘了在本站进行查找喔。
