没有合适的资源?快使用搜索试试~ 我知道了~
首页调用API函数映射网络驱动器
调用API函数映射网络驱动器

调用API函数映射网络驱动器调用API函数映射网络驱动器调用API函数映射网络驱动器调用API函数映射网络驱动器调用API函数映射网络驱动器调用API函数映射网络驱动器
资源详情
资源评论
资源推荐

VB 编程经验
1、 用 WRITE 语句写入顺序文件中 的内容都带有 双引号;用
PRINT 语句写入顺序文件中的内容都不带双引号。
2、 要将文本框中的内容在打印机上打印出来,可建立一个打印命
令按钮,并在该打印命令按钮的 CLICK 事件代码中采用下面
两种语句:
(1)用下列语句进行打印:
'Printer.Print txtreview.Text
'Printer.EndDoc
如果没有'Printer.EndDoc 语句,则'Printer.Print txtreview.Text
语句要等程序全部退出后才会执行。并且用上述语句进行打
印,打印完后,打印机会自动进到新的一页,即使打印内容只有一
行。
(2)用下列语句进行打印:
Open "PRN" For Output As #1
Print #1, txtreview.Text
Close #1
用上述语句进行打印,会立即打印,而不要等程序全部退出
后才会打印。并且打印完后,打印机不会自动进到新的一页。
3、 要使焦点移到文本框后,文本框中的内容会自动发白显示,可
在文本框的失去焦点事件代码中采用下列语句:
Private Sub start_date_GotFocus()
start_date.SelStart = 0
start_date.SelLength = Len(start_date.Text)
End Sub
4、在 VB 中,采用 SHELL()函数调用外部可执行程序,在缺省情

况下,Shell 函数是以异步方式来执行其它程序的。也就是说,用
Shell 启动的程序可能还没有完成执行过程,就已经执行到 Shell
函数之后的语句。要使采用 SHELL()函数以同步方式来执行其它
程序,
可以按以下方法处理:
将以下语句加入窗体声明段
Private Declare Function OpenProcess Lib "kernel32" (ByVal
dwDesiredaccess&, ByVal bInherithandle&, ByVal dwProcessid&) As Long
Private Declare Function GetExitCodeProcess Lib "kernel32" (ByVal hProcess
As Long, lpexitcode As Long) As Long
Const STILL_ACTIVE = &H103
Const PROCESS_QUERY_INFORMATION = &H400
Dim hShell As Long
Dim hProc As Long
Dim lExit As Long
再更改您的 shell 语句为如下格式:
hShell = Shell("RunExeFile", 1)
hProc = OpenProcess(PROCESS_QUERY_INFORMATION, False, hShell)
If hShell = 0 Then MsgBox "程序执行失败"
Do
GetExitCodeProcess hProc, lExit
DoEvents
Loop While lExit = STILL_ACTIVE
MsgBox "Shell 语句执行完毕"
其中 RunExeFile 为要执行的外部程序名称(带路径)。
这 样 只 有 等 执 行 完 RunExeFile 程 序 后 , 才 会 接 着 继 续 执 行
MsgBox "Shell 语句执行完毕"语句后的语句。
如果 Shell 函数成功地执行了所要执行的文件,则它会返回程序的
任务 ID。任务 ID 是一个唯一的数值,用来指明正在运行的程序。
如果 Shell 函数不能打开命名的程序,则会产生错误,返回 0。

5、 将一个文本文件的内容在一个文本框上显示出来,可以采用下
面的语句,注意在将文本文件以顺序文件的格式打开,并且用
Line Input 语句读入内存变量后,应该在内存变量中添加回车
和换行符。
Open "c:\result" For Input As #1
While Not EOF(1)
Line Input #1, INFO
frmreview.txtreview.Text = frmreview.txtreview.Text + INFO + Chr$(13)
+ Chr$(10)
Wend
Close #1
6、 在 VB 中,在缺省情况下,焦点从一个文本框移动到另外一个
文本框,只能通过 TAB 键来移动,为了使按回车键也能将焦
点从一个文本框移动到另外一个文本框,可以在文本框的
KeyPress 事件中,检测按键是否是回车键,如果是,则将焦点
移到下一个文本框:
Private Sub start_date_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
end_date.SetFocus
End If
End Sub
7、 在 VB 中,为了能判断在文本框中输入的字符是否符合要求,
可以在文本框的 KeyPress 事件中,采用下列代码检测按键是
否符合要求:
Private Sub start_date_KeyPress(KeyAscii As Integer)
If (((KeyAscii > 47) And (KeyAscii < 58)) Or (KeyAscii = 45) Or
(KeyAscii = 8) Or (KeyAscii = 13)) Then
ss = 0
Else
KeyAscii = 0
MsgBox ("日期只能输入数字 0-9 和-号,请重新输入!")

End If
其中 KeyAscii = 0 语句表示按键不符合要求时,将按键内容丢弃。
8、在 VB 中,为了能在文本框中已有字符输入的情况下,才使命令
按钮可用,可在文本框的 Change 事件中写入下列代码实现:
Private Sub start_date_Change()
If start_date.Text <> "" And end_date.Text <> "" And account.Text <> ""
Then
cmd_start.Enabled = True
Else
cmd_start.Enabled = False
End If
End Sub
9、下列图片框中的“欢迎使用历史明细数据查询系统”等内容可以通
过先在 WORD 中设计好所需要的版面,再拷贝到图片框中的方法来
实现。
10、在 VB 中,不管是用 BINARY 二进制方式,还是用 RANDOM
剩余15页未读,继续阅读















安全验证
文档复制为VIP权益,开通VIP直接复制

评论2