VB窗口全屏与置顶
全屏
Private Sub Form_Load()
Me.Width = Screen.Width
Me.Height = Screen.Height
Me.WindowState = 2
End Sub
置顶
1.在VB的通用代码里写入API声明
Private Declare Function SetWindowPos& Lib "user32" (ByVal hwnd As Long, _
ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, _
ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long)
2.因为我们要让窗口置顶
那么就在Form_Load()事件里写入如下代码
Dim myval
myval = SetWindowPos(form1.hwnd, -1, 0, 0, 0, 0, 3)
相关文档：
李海
本文发表在2000年4月17日 《计算机世界》25期
制作安装程序往往是程序设计的最后一步，同时也是重要的一步，因为运行安装程序往往是用户的第一个操作。下面就介绍一些制作
Visual Basic
安装程序时常遇到问题的解决方法。
1
、一个非常简单的
VB
程序是否可以不制作安装程序
问：假如我的
VB5
开发的程� ......
VB学的用的都不精，编个程序用了很长时间了，现在这个通讯部分还没做好，求助大家一下：
ctrMSComm.Output = "@01R" '读命令
instar = ctrMSComm.Input '读通讯
wy_I = val(HEX_to_DEC(Mid(instar, 29, 4))) * (20 / 4095#)
&n ......
在工程中添加一个类模块，名为 Selection
然后加入以下代码：
Dim colRows As Collection
Dim ControlKey As Boolean
Public WithEvents flx As M ......
Option Explicit
Dim potflag As Integer '标识是否用小数点
Dim numcol As Integer ' 点击运算符的个数
Dim LastInput ' 指示上一次操作的内容
Dim colflag ......
