用vb做好的软件,想要加入自动隐藏的功能,在那添加啊,还有隐藏的代码那有啊 借用一下 谢了
方法1
Private Sub Form_Load()
Me.Height = 1 * Screen.TwipsPerPixelY
Me.Width = 1 * Screen.TwipsPerPixelX
End Sub
borderstyle属性设置为0
方法2
Private Decl ......
用VB中的Timer控件 可以获得时间
但是如果电脑上的时间显示不正确 那岂不是获得的时间也是不正确的
怎么获得正确的时间
连网,从别的地方获得
引用
用VB中的Timer控件 可以获得时间
但是如果电脑上的时间显示不正确 那岂不是获得的时间也是不正确的
怎么获得正确的时间
用Now獲得& ......
怎么点击form2上的按钮 可以结束form1上正在进行的循环
form1里面添加一个变量:
Public bEnd As Boolean
循环代码添加:
bEnd = False
Do
...
If bEnd Then Exit Do
DoEvents
Loop
另一个窗口:
frm1.bEnd = True
引用 ......
大家好,问个vb打印问题
printer.print "dsff"
.....
....
Printer.EndDoc
打印成功后我将执行
sqlstr = "update vc_yh set pr=' 已打印 ',czry='" & user & "',czrq=to_date('" & Format(Get_NowDate, &qu ......
我要导入导出数据库文件,在到处的时候使用另存为对话框,具体代码是如何实现的?我直接用commondialog1.showsave之后点另存为没有响应,是不是要添加什么代码?急!
另存为什么格式的文件你需要告诉大家,写到不同类型的文件中用到的代码不一样
另存为MDB,比如,我导入数据库的代码如下:
VB code:
On Error Re ......
VB中callbacke function 如下:
Public Function EnumChildProc(ByVal hwnd As Long, ByVal lParam As Long) As Long
Dim slength As Long, WndTitle As String ' title bar text length and buffer
Dim retval As Long ' return value
Dim WClass As Strin ......