英语翻译private sub check1_click()label1.fontbold=iif(check1.val
来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/10/05 04:54:45
英语翻译
private sub check1_click()
label1.fontbold=iif(check1.value,true,false)
end sub
private sub option1_click()
'label1.fontsize=16
label1.fontsizs=option1.caption
end sub
private sub option4_click()
label1.fontname="隶书"
end sub
最好翻译下每个句的意思,
private sub check1_click()
label1.fontbold=iif(check1.value,true,false)
end sub
private sub option1_click()
'label1.fontsize=16
label1.fontsizs=option1.caption
end sub
private sub option4_click()
label1.fontname="隶书"
end sub
最好翻译下每个句的意思,
private sub check1_click()
label1.fontbold=iif(check1.value,true,false) 根据check1框的选项来设置label1是否粗体
end sub
private sub option1_click()
'label1.fontsize=16 设置label1字号为16
label1.fontsizs=option1.caption
end sub
private sub option4_click()
label1.fontname="隶书" 设置label1字体为隶书
end sub
各个过程就是响应函数
label1.fontbold=iif(check1.value,true,false) 根据check1框的选项来设置label1是否粗体
end sub
private sub option1_click()
'label1.fontsize=16 设置label1字号为16
label1.fontsizs=option1.caption
end sub
private sub option4_click()
label1.fontname="隶书" 设置label1字体为隶书
end sub
各个过程就是响应函数
英语翻译private sub check1_click()label1.fontbold=iif(check1.val
英语翻译控制标签移动private sub timer1_timer()if label1.left
关于vb的CheckPrivate Sub Check1_Click()If Check1.Value = 0 Then
Private Sub Command1_Click() A = Val(Text1.Text):B = Val(Tex
VB奇数求和Private Sub Command1_Click()vl = Val(Text1.Text)vj = V
几道VB程序题,Private Sub Command1_Click()Dim x As Integerx = Val(
帮忙看哈错在哪里呀.Private Sub Command1_Click()Dim ,b$a = Val(InputBo
英语翻译Dim d As BooleanPrivate Sub Form_Load()Label1.Left = Me.
英语翻译Private Sub Form_Activate()If find = True ThenForm4.ZOrd
英语翻译Private Sub Worksheet_Activate()End SubPrivate Sub Works
Private Sub Form_Click()
private sub score_lostfocus( )