VB中的小用法

shell打开一个网页的时候，让网页中的地址栏，状态栏等全部屏蔽
建立2个FORM 
FORM1代码： 

Private   Sub   Command1_Click() 
        Form2.Show 
End   Sub 

FORM2代码： 
加载WebBrowser控件，把FORM2的图标修改成IE图标，标题修改成IE标题。。。。 


Private   Sub   Form_Load() 
        Me.WebBrowser1.Top   =   0 
        Me.WebBrowser1.Left   =   0 
        Me.WebBrowser1.Width   =   Me.Width   -   80 
        Me.WebBrowser1.Height   =   Me.Height   -   380 
        
        Me.WebBrowser1.Navigate   "http://www.163.com " 
        
End   Sub

移动（剪切）文件
shell”cmd /c move c:\1.txt d:\1.txt”

打开文件夹
shell "explorer 文件夹"，1

'打开d盘下music的文件夹
shell "cmd /c start D:\music" 

用windows关联方式找开文件
Shell "cmd.exe /c start " & App.Path & "a.doc"

shell “cmd /c @start iexplore.exe http://www.baidu.com”

文件和文件夹的操作
建立一个空文件Shell "cmd /c echo. > d:\a.txt"

删除一个文件 shell “cmd /c result.txt”

建立一个文件夹 shell “cmd /c md d:\abc\”

删除一个文件夹 shell “cmd /c rd d:\abc”

重命名一个文件 shell “cmd /c ren d:\a.txt b.txt”

用VB运行DOS命令

Shell “cmd /c ipconfig /all >C:\result.txt”

Shell “cmd /c move c:\result.txt d:\result.txt”

Shell “cmd /c copy c:\result.txt d:\result.txt”


用VB注销、关机、重启、结束进程
注销用户    Shell "shutdown -l"       

关闭系统    Shell "shutdown -S -t 0"

重启        Shell "shutdown -R -t 0"

0是代表响应的时间 


结束explorer.exe进程

Shell "taskkill /f /im explorer.exe ", vbHide

(结束其它进程也是这样,如：shell "taskkill /f /im ttplayer.exe"

或taskkill /im ttplayer.exe /f)

打印当前窗体的可见区域
Me.PrintForm 

Text控件居中显示
Alignment属性：
0-Leftjustify:左对齐
1-Rightjustify:右对齐
2-Center:居中

VB窗口启动时直接是最大化
Private   Sub   Form_Load() 
        Me.WindowState   =   2 '启动时最大化 
End   Sub 


去掉窗口的标题栏
在窗口的borderstyle属性设置为0-None

用Vb的WebBrowser控件播放GIF动画
工程-部件-Microsoft Internet Controls6.0-勾选-确定-在左侧工具箱中出现WebBrowser控件了
Private Sub Form_Load()

'显示程序执行的GIF动画
    WebBrowser1.Navigate (App.Path & "\ing.gif")
    ing.Timer1.Interval = 100
    
End Sub

Private Sub Timer1_Timer()
'去掉WebBrowser1的滚动条
    WebBrowser1.Document.body.Scroll = "no"
End Sub

让VB中的按钮失效
'在选中一个按钮后，在其右侧属性栏里找到Enabled属性，将他选择成false
Command1.Enabled = False '按钮失效
Command1.Enabled = True '按钮生效

VB里换行符使用
msgbox "第一行的字符" & vbcrlf & "第二行的字符"，"想要分行 _ 的字符" 

TEXT框从右测开始显示内容
vb6.0中的Text1的Alignment设成1-right就行了

按钮插入背景图片
按钮的style属性设置为1 ，然后设置背景图片

超链接网页，最大化前置
Shell "C:\Program Files\Internet Explorer\IEXPLORE.EXE空格http://www.sy15168.cn",vbNormalFocus
关闭窗口
end
判断text中是否为数字：

If Not IsNumeric(Text1.Text) Then
'=========这个弹出窗口会中断程序的往下运行=========
    MsgBox "卖出价格应该是数字!"
Exit Sub

用VB做网站超连接
单击图片的时候，弹出网站
Private Sub Label1_Click()
Shell ("explorer.exe " & "http://www.XXX.com")
End Sub

弹出某个窗体
窗体名.show

隐藏当前窗体
Unload Me

VB的CommonDialog控件（找文件工具）的添加
你在工具栏里右键。也就是TOOLBARS里面。点右键之后。会看到有个部件。点击之后，在弹出的部件对话框里，你找到microsoft comman dialog control 6.0并在前面的复选框里打勾。。这样就可以了。

使用公有的全局变量，各个窗体都可以调用
工程---右键---添加模块----然后只是做变量声明
'这里声明了两个在整个工程范围内都可以调用的字符串类型全局变量a和b
Public a, b As String
以后在各个窗体可以给他们赋值或者调用

删除文件
Kill "D:\123.exe"

拷贝文件
'将C盘的1.exe拷贝到D盘，起名2.exe
Dim g, h
g = "c:\1.exe"
h = "D:\2.exe"
FileCopy g, h

将VB中的Picture的图片缩放
        '================================================
        Dim p As Single, cc As New StdPicture
     Set cc = LoadPicture(图片路径)
     If cc.Height / Picture1.ScaleHeight < cc.Width / Picture1.ScaleWidth Then
         p = Picture1.ScaleWidth / cc.Width
         Picture1.PaintPicture cc, 0, (Picture1.ScaleHeight - cc.Height * p) * 0.5, Picture1.ScaleWidth, p * cc.Height
     Else
         p = Picture1.ScaleHeight / cc.Height
         Picture1.PaintPicture cc, (Picture1.ScaleWidth - cc.Width * p) * 0.5, 0, p * cc.Width, Picture1.ScaleHeight
     End If
 '================================================

弹出简单提示框
msgbox "完毕", ,"弹出框的标题"

用IF语句比较字符串
If trim(ucase(pic))=trim(ucase(osss)) Then 
pic和osss分别是两个字符串对象

查询语句结果查出数据的条数以弹出窗口显示
MsgBox "" & CStr(objRs.RecordCount) & "", , "测试查询数据条数"

判断是否有文件夹，如果没有就建立
if   dir("c:\test",vbDirectory)=""   then   mkdir   "c:\test"

判断是否有文件，如果没有就建立
if   dir("c:\test\1.jpg",vbDirectory)=""   then   
    MsgBox "图片不在", , "系统显示"
end if

超级容错语句
On Error Resume Next

验证键盘输入
Private Sub Text2_KeyPress(KeyAscii As Integer)
    '如果输入回车
    If KeyAscii = 13 Then
        '调用验证密码函数
        cha
    End If
End Sub

显示键盘ascii码
Private Sub Text1_KeyPress(KeyAscii As Integer)
    Print KeyAscii
End Sub

固定窗口大小
把borderstyle属性设置为 1
再把 MinButton属性设置为 True 

定义函数
Private Sub ok()
    MsgBox "学员录入完毕", , "成功信息"
    If ttt = "1" Then
    '调用转移图片函数
    zhuan

    '调用开数据库函数
    kai

    '调用关数据库函数
    guan

    '调用成功函数
    ok

    '调用清空文本框函数
    clearok
   '============给判断变量还原默认值================
    ttt = ""
 End If
End Sub

定义变量
'定义整形
Dim s, cli As Integer
'定义字符串
Dim j, z, h As String

在模块中定义共有全局字符串
Public nnn, aaa, Pic, mmm As String, cli As Integer

给函数传参
ShowData (intPage)

带参数函数
Private Sub opp(qqq As String)
Dim aaa As String
aaa=qqq
End Sub

随机数计算
'计算[a,b]间的随机数，包括a和b
'初始化种子，以防每次都出同样的随机值序列
Randomize
Int((b-a+1)*Rnd+a)

条件判断
   If t1.Text = "" Then
         MsgBox "请填写用户名"
   
    ElseIf Combo1.Text = "请选择性别" Then
        MsgBox "请选择性别"   
    ElseIf t3.Text = "" Then
         MsgBox "请填写年龄"
    Else
        ttt = "1"
    End If

字符串转整形
VaL(串)

多种条件
if a<1 then
elseif a=1 then
else 
    ......
end if

提示信息是否进行
If MsgBox("还进行么？", vbInformation + vbOKCancel, "提示") = vbOK Then
      。。。。。。。。。。。。。。。。。。。。
End If

在VB中获取颜色代码
第一种：

打开画图板，颜色里面调出你要的颜色以后，记下红绿蓝的数值
然后vb中用xxx.forecolor(或者backcolor之类)=rgb(红,绿,蓝)

这种办法好处就是很简单 不好之处就是不能在设计的时候更改

第二种：

打开画图板，调好颜色以后 记下红绿蓝
打开计算器 分别翻译成16进制
然后vb中用xxx.forecolor = &H蓝绿红
例如蓝色255 16进制就是FF
红色0 16进制是0
绿色128 16进制是80
然后颜色就是&HFF8000  (0要补齐)

第三种：
打开专业的制图软件（photoshop/fireworks）
直接获取16进制颜色 比如说#AABBCC
然后对应的VB中颜色就是&HCCBBAA

鼠标经过lable控件变颜色
'鼠标在窗体里时lable文字的颜色
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label5.ForeColor = vbRed
End Sub
'鼠标在lable上时lable文字的颜色
Private Sub Label5_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Label5.ForeColor = RGB(241, 250, 88)
End Sub

VB的 timer显示时钟
Private Sub Form_Load()
    Timer1.Interval = 1000
End Sub

'timer本身会不断的运行，只要Timer1.Enabled = true就会一直运行
'只有Timer1.Enabled = False才会停   
Private Sub Timer1_Timer()
    Label1.Caption = Time()
End Sub

显示三次时间
Private Sub Form_Load()
    Timer1.Interval = 1000
End Sub

Private Sub Timer1_Timer()
'定义常量，下次进入，常量值保留
    Static d As Integer
    d = d + 1
    If d = 3 Then Timer1.Enabled = False    
    Text1.Text = Time()
End Sub

vb中调用外部应用程序的方法
Shell "应用程序名.exe", vbNormalFocus

VB打开一个文件夹
'下面这个命令是打开“文件夹1”这个文件夹，并将这个文件夹获得焦点
Shell "explorer , 文件夹1", 1
''下面这个命令是打开“文件夹1”这个文件夹，这个文件夹无当前焦点
Shell "explorer , 文件夹1"

VB调用相应程序打开目标文件（此方法用于打开非EXE程序）
Shell "D:\Program Files\丛林影音\mplayerc.exe 1.mpg", 1

[本日志由 admin 于 2012-02-29 08:01 AM 编辑]
文章来自: 本站原创
引用通告地址: http://www.cn-sohu.com/bolg/trackback.asp?tbID=246
Tags: