VB 6.0的基础知识
1、 熟悉一般标签、装载按钮的标签、文本框，按钮的使用。
2、 Click点击按钮，dobble click简称dbclick，双击鼠标的意思。
3、 仅是背景窗体form1显示一些东西，程序中首行不用再编辑选中命令了。
4、 背景的字体可通过内部程序去描述。汉字要加上英文的双引号。
显示命令为print ，清除命令为cls为clear screen的缩写。
所有的命令只认缩写不认全拼。
5、 文本内容
        Text1.Text = ""
    Text2.Text = ""
    Text3.Text = ""
但是文本框中的内容就不可以用cls清除。
这个按钮赋予文本框内容一个空的字符串，表示清除或取消。
文本框的属性很多，下面介绍几个常见的：
Font bold粗体，Font italic 斜体，Font name字体名字
Fontsize 字体大小，Fontunderline 字体下划线
Height 高度，weight 宽度，Text内容，Enabled可用性。
有多个选择的比如字体大小等号后面跟随的是具体内容数字。
单一选择的等号后面是true或false。
6、value赋值的含义，简写为val是一个函数所以后面跟随的内容要带括号。
例如：Val（）
7、 Str$ Val（)赋值后还要转换成字符，程序才认可。
8、学会if……… then
  Else
………..（如果、则、否则）
End if  语句的使用。
9、text1.点的后面包括很多属性：比如value、text、font、fontsige。
10、对文本框赋值为1表示选中该文本。切记1不是true。
11、语言的描述习惯：
比如将文本框中的字体改成粗体。
Text1.fontbond=true
比如将文本框中的字体增加下划线。
Text1.fontunderline=true
将某某中内容赋予文本框
=***.text
12、多选框按钮（listbox）如英文翻译类
Private Sub List1_Click()
Select Case List1.ListIndex（之所以不赋值为1进行选中，主要是分类的情况很多，需要特定的语句描述。）
  Case 0（表示多选框第一行的内容，以下依次类推）
Text1.Text = "你好"
  Case 1
Text1.Text = "谢谢"
  Case 2
Text1.Text = "拜拜"
End Select
End Sub
List内容换行用contrl+回车实现，直接回车代表结束。
13、下拉菜单按钮（combobox）
C1代表下拉菜单按钮，这个能区分就好，可以随意定义。
Private Sub C1_Change()
将下拉菜单中的内容赋予文本框。
Text1.Text = C1.Text
End Sub
增加下拉菜单中的内容，并在状态栏（文本框）显示
Private Sub Cm1_Click()
C1.AddItem C1.Text(一种描述方法，死记硬背吧)
Text1.Text = C1.Text
End Sub
清除下拉菜单中的项目，在状态栏中显示无。
Private Sub Cm2_Click()
C1.RemoveItem C1.ListIndex
Text1.Text = ""
End Sub
14、图像命令
背景picture属性自动重画功能autoredraw要开成true。
图像框的属性stretch自动伸缩也要设成true。
图像框相当于专门承载图像的文本。
图像框图像显示事件
Image1.picture=loadpicture（” C:\windows\.....bmp”）
图像框中的图像清除
Image1.picture=loadpicture对比上式后面没有图像索引地址。
放大图像框中的图像
Image1.width= Image1.width*1.5（1.5为倍数）
Image1.height= Image1.height*1.5
缩小图像框中的图像
Image1.width= Image1.width/1.5（1.5为倍数）
Image1.height= Image1.height/1.5
15、时间日期时钟命令
Private Sub Command1_Click()
Timer1.Enabled = ture
Text1.Text = Date + Time
End Sub
Command1为显示日期时间按钮。
Private Sub Command2_Click()
Timer1.Enabled = False
Text1.Text = ""
End Sub
Command2_为清除按钮。
Private Sub Timer1_Timer()
Text1.Text = Date + Time
End Sub（时钟命令）
程序调试成功后，时钟按钮自动隐藏。
时钟属性框中interval时间间隔为1000，默认单位为ms。
时钟的初始可用性要设置成false。
16、用户名密码登录
Private Sub Command1_Click()
If Text1.Text = "456" And Text2.Text = "789" Then
Form1.Hide
Form2.Show
Else
MsgBox "密码错误"
End If
End Sub
Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
End Sub
需要说明的是窗体2是在窗体1下建立的，不是新建一个工程。
也可以把键盘热键关联上，Command1确定按钮可将default属性改成true。
Command2取消按钮可将cancel属性改成true。
17、非稳定能量积累循环语句如线圈温升计算程序
Dim p, c As Double(凌驾于整个程序上面,属于通用程序)
温度系数、比热容，这里要设置两个单击选择按钮。
Double区别于整数integer，它是可以带小数点的数值。
Private Sub Command1_Click()
 
  Dim s, w, u, r, m, h, a, tz As Double
  s = Val(Text1.Text)散热面积
  w = Val(Text2.Text)散热系数
u = Val(Text3.Text) 通电电压
  r = Val(Text4.Text)初始电阻
  m = Val(Text5.Text)线圈质量
  h = Val(Text6.Text)环境初始温度
  tz = Val(Text7.Text)加热总时间
  a = Val(Text8.Text)时间间隔（越小越准，但不能等于0）
以上为基本变量(文本框变量)
下面还要定义几个编辑变量(中间变量)。
 
  Dim t , ha, rb , hz As Double
  ha = 0
hz = h（ha是相对前一状态的温升，hz是某一状态下的线圈温度）
  For t= 0 To tz Step a
循环语句时间t取0-tz，时间步长为a。
  hz = hz + ha
（时间相当于自变量，温度相当于函数量，循环语句两个变量先要定义）
（这里ha=0，hz=h，hz = hz + ha的意义代表如下含义：
当t时刻时，得出一个温升值和线圈温度，下一步（t+a）再计算时，会将上一步的线圈温度等式左边的hz加上一个新的温升值再赋值给线圈右边的hz进行温度计算，每步计算时，线圈的温升和线圈温度均会微弱变化，总温升实际是每步温升相加的和。
实际上x=x+i代表就是一个基础量+一个增加量。前一个x代表的意义是下一步的x,后一个text函数什么意思x代表前一步的x。i为增加量。定义x一个初始值即可运算。）
  rb = r * (1 + p * (hz - 20))
  ha = (u * u / rb - s * w * (hz - 20)) * t /(c *m)
  Next
  Text9.Text = Str$(Round(Val(hz), 3))
温度计算结果保留三位小数。Text9.Text代表最终状态下的总温度是hz的一个值。
  Text10.Text = Str$(Val(Text9.Text) - h)
  Text10.Text是总温升，不是ha。
End Sub
Private Sub Command2_Click()
  End
End Sub
Private Sub Option1_Click()
  p = 0.0038
  c = 880
End Sub
Private Sub Option2_Click()
  p = 0.0041
  c = 390
End Sub

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。