'生成题目
dr = DataTables("题库").Find("[序号] = '" & pd.Name & "'")
'str =
Forms(Arg0).Controls("Label1").Text = StrToWide("(") & pd.Text & StrToWide(")") & dr("题目内容") & vbcrlf & vbcrlf '显示题目内容
Forms(Arg0).Controls("Label1").Width = Forms(Arg0).Controls("GroupBox1").Width - 100
Dim pbx As WinForm.PictureBox = Forms(Arg0).Controls("PictureBox1")
Dim h As Integer '设定控件高度
Dim rb_A As WinForm.RadioButton
Dim rb_B As WinForm.RadioButton
Dim rb_C As WinForm.RadioButton
Dim rb_D As WinForm.RadioButton
Forms("窗口12").RemoveControl("rb_A")
Forms("窗口12").RemoveControl("rb_B")
Forms("窗口12").RemoveControl("rb_C")
Forms("窗口12").RemoveControl("rb_D")
If dr.IsNull("图片") Then
pbx.Visible = False
h = Forms(Arg0).Controls("Label1").Height + Forms(Arg0).Controls("Label1").Top
Else
pbx.Visible = True
pbx.Top = Forms(Arg0).Controls("Label1").Height + Forms(Arg0).Controls("Label1").Top '设定图片位置
pbx.Image = GetImage(dr("图片")) '显示图片
h = pbx.Height + pbx.Top
End If
'创建选项A
rb_A = Forms("窗口12").CreateControl("rb_A", ControlTypeEnum.RadioButton)
rb_A.Text = vbcrlf & "A." & dr("选项_A")
rb_A.Left = Forms(Arg0).Controls("Label1").Left
rb_A.Top = h
rb_A.TextAlign = ContentAlignment.MiddleLeft
rb_A.Width = Forms(Arg0).Controls("GroupBox1").Width
Forms("窗口12").Controls("GroupBox1").AddControl(rb_A)
'创建选项B
h = h + rb_A.Height
rb_B = Forms("窗口12").CreateControl("rb_B", ControlTypeEnum.RadioButton)
rb_B.Top = h
rb_B.Left = Forms(Arg0).Controls("Label1").Left
rb_B.Text = vbcrlf & "B." & dr("选项_B")
rb_B.Width = Forms(Arg0).Controls("GroupBox1").Width
rb_B.TextAlign = ContentAlignment.MiddleLeft
Forms("窗口12").Controls("GroupBox1").AddControl(rb_B)
'创建选项C
h = h + rb_B.Height
rb_C = Forms("窗口12").CreateControl("rb_C", ControlTypeEnum.RadioButton)
rb_C.Top = h
rb_C.Left = Forms(Arg0).Controls("Label1").Left
rb_C.Text = vbcrlf & "B." & dr("选项_C")
rb_C.Width = Forms(Arg0).Controls("GroupBox1").Width
rb_C.TextAlign = ContentAlignment.MiddleLeft
Forms("窗口12").Controls("GroupBox1").AddControl(rb_C)
'创建选项D
h = h + rb_C.Height
rb_D = Forms("窗口12").CreateControl("rb_D", ControlTypeEnum.RadioButton)
rb_D.Top = h
rb_D.Left = Forms(Arg0).Controls("Label1").Left
rb_D.Text = vbcrlf & "D." & dr("选项_D")
rb_D.Width = Forms(Arg0).Controls("GroupBox1").Width
rb_D.TextAlign = ContentAlignment.MiddleLeft
Forms("窗口12").Controls("GroupBox1").AddControl(rb_D)
我的选项内容是变动的，RadioButton的宽度根据选项内容自行调整宽度，使内容显示完全，另外也请老师帮看一下，我设定了文本对齐方式，但一直对不齐，我把文件上传上来了
加好友 
发短信
Post By：2019/12/7 15:16:00 [只看该作者]
