vb 单选按钮

来源：百度知道 编辑：UC知道 时间：2024/05/15 19:45:44
Private Sub Command2_Click()
End
End Sub
Private Sub Form_Load()
Option3.Value = ture
Option6.Value = ture
Option9.Value = ture
Label1.Caption = "欢迎你使用Visual Basic"
End Sub
Private Sub Command1_Click()
If Option1.Value Then Label1.FontName = "宋体"
If Option2.Value Then Label1.FontName = "隶书"
If Option3.Value Then Label1.FontName = "幼圆"
If Option4.Value Then Label1.FontSize = 14
If Option5.Value Then Label1.FontSize = 18
If Option6.Value Then Label1.FontSize = 22
If Option7.Value Then Label1.ForeColor = QBColor(9)
If Option8.Value Then Label1.ForeColor = QBColor(13)
If Option9.Value Then Label1.ForeColor = QBColor(10)
Label1.Caption = "欢迎你使用Visual Basic"
End Sub

我想请教一下为什么这里的if XXXX then XXXX 没有以end if 结尾,是吾是这里不是块状结构啊,请求详解if XX then XXX 没有end if 结尾和if XXX then XXX 有end if 结尾的区别,作用和用法

if xxxx then yyyy
这样的用法是简便，和
if xxxx then
yyyy
end if
一样的，
如果判断条件为真就执行一句代码，这样写最方便。举个例子你看一下,比较其中的区别

private sub Cmd1_click()
dim filename as string
filename=trim(text.text)
if filename<>"" then
'检查文件是否存在，存在就打开，不存在就创建
'创建文件成功后，将text2中的内容写入文件
...
...
msgbox "写入文件成功"
end if
end sub

private sub Cmd1_click()
dim filename as string
filename=trim(text.text)
if filename="" then exit sub
'检查文件是否存在，存在就打开，不存在就创建
'创建文件成功后，将text2中的内容写入文件
...
...
msgbox "写入文件成功"
end sub

VB 的IF ... THEN 有这么两种写法..

一种就是你晓得的那种.

是
IF 条件 THEN
执行语句
END IF

另一种就是.
IF 条件 THEN 执行语句.

区别就仅仅是 一个写在一行,而另一个不写在一行,如果你一行能把所有的话写完,那么就用第二种就OK 了,这样还可以少写END IF .

我就喜欢这样，因为我老是忘记写END IF

其实很简单，在vb中，if then 如果在一行就不用end if
如: if