VB中根据文本行数显示滚动条(动态显示滚动条)的方法
很多时候,我们不想一开始就显示滚动条,当文本到达指定行数文本框无法完全显示的时候再显示它,由于Scrollbar属性是只读的,无法在运行时的代码中改变这个属性,只能使用下面的API实现这个功能:
Public Declare Function ShowScrollBar Lib "user32" (ByVal hwnd As Long, ByVal wBar As Long, ByVal bShow As Long) As Long
Public Const SB_HORZ = 0 '水平
Public Const SB_VERT = 1 '垂直
Public Const SB_BOTH = 3 '两者都有
在Change事件中,调用就可以了:
Private bShow As Boolean '是否已经改变Scrollbars属性,你也可以省略这个控制
Private Sub txtText_Change()
txtText.SelStart = Len(txtText.Text)
If bShow = True Then Exit Sub '读取一个变量的速度要比读取一个属性快,看下C++
If TextHeight(txtText.Text) > txtText.Height Then
ShowScrollBar txtText.hwnd, SB_VERT, True
bShow = True '下次不用再判断
End If
End Sub
相关文档：
开始使用vb的时候喜欢用手画出那个控件的位置.然后一个一个的拖动,一点一点的移动.直到感觉满意了为止.如果是控件多了这个就很麻烦了
一不小心可能会将谋个控件拖到一边去
所以,我们在以后的作品中
尽量使用代码来定义控件位置,,要灵活的掌握坐标位置.,可以使用自定义坐标.使用像素来更好的来分区显示控件.
& ......
这一段大家编写程序很多时候都在使用API,它给我们带来了强大的功能.让我们非常惊喜.
但是我们在调试程序的时候有时候总会奔溃.这样很不方便.
其中有些是api惹的祸
使用api注意事项:
首先我说说我的观点.
1:Api是很多系统也在用.我们在设置参数时如果和系统的参数有冲突.就可能引起软件出错
2.api很多都是c语言编写的, ......
学生时代专业是机械，但是参加工作后，机缘巧合从事了与软件相关的工作，就是对大型工程软件软件做一些二次开发，收获过快乐，收获过辛酸，在一次又一次的得与失中，想找一个地方，找一些人可以慢慢与之分享，与之交流，并期得到帮助或提供帮助！也许你是无意见路过，甚或漂过，但你的注目是我前进的动力，有幸驻足也会让我 ......
主窗体代码：
'打开网页
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
'复制文件
Private Declare Fu ......
程序隐形的原理
对于一个隐形程序而言，最基本的要求是：
1. 不在桌面出现界面；
2. 不在任务栏出现图标；
3. 程序名从任务管理器名单中消失。
Public Declare Function GetCurrentProcessId Lib “kernel32” () As Long
’获得当前进程ID函数的声明
Public Declare Functio ......
