大体说下思路吧,需要用到“自定义控件”,把自定义控件设计为“Tablen”的样式(里面用到多个label),然后根据数据查询结果,动态的把“自定义控件”的实例加到panel控件(Autoscroll设为true)上(或者flowlayoutpanel)即可。
目前创新互联已为成百上千的企业提供了网站建设、域名、虚拟主机、网站托管维护、企业网站设计、高坪网站维护等服务,公司将坚持客户导向、应用为本的策略,正道将秉承"和谐、参与、激情"的文化,与客户和合作伙伴齐心协力一起成长,共同发展。
自定义控件的使用你可以查询一下相关资料,和vb的基本是一样的
打开VisualBasic6.0软件,新建一个标准exe工程,或者打开一个已经存在的工程,按下Shift+F7或者打开视图菜单-对象窗口,打开窗体界面;
2、通过资源管理窗体,双击其中的.frm窗体设计,进入窗体设计界面;
3、窗体界面见下图;
4、打开视图菜单-工具箱,打开工具箱的界面;
5、然后就可以将工具箱中的控件拖放到设计界面上,这就是所谓的窗体设计器。
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim aa As Integer = Val(TextBox1.Text)
Dim i As Integer
For i = 2 To aa
If aa Mod i = 0 Then
TextBox2.Text += i.ToString + " "
aa = aa / i
i = 2
End If
Next
End Sub
Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
TextBox1.Text = ss()
TextBox2.Text = ss()
End Sub
Function ss()
Randomize()
Dim a As Integer = Int(Rnd() * 100)
Return a
End Function
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If Val(TextBox1.Text) + Val(TextBox2.Text) = Val(TextBox3.Text) Then
i += 1
Label3.Text = "正确"
Else
j += 1
Label3.Text = "错误"
End If
aa += 1
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
TextBox1.Text = ss()
TextBox2.Text = ss()
TextBox3.Text = ""
Label3.Text = ""
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
TextBox4.Text = "你已经答了" + aa.ToString + "题,答对" + i.ToString + "题," + "答错" + j.ToString + "题。"
End Sub
Windows 窗体设计器的作用是( B) 。
A. 编写程序代码 B. 设计用户界面
C. 提供 Windows 窗体控件 D. 显示指定对象的属性