vb.net开发界面设计,vb编程界面

vb.net 中如何开发下图中的界面。

大体说下思路吧，需要用到“自定义控件”，把自定义控件设计为“Tablen”的样式（里面用到多个label），然后根据数据查询结果，动态的把“自定义控件”的实例加到panel控件(Autoscroll设为true)上（或者flowlayoutpanel）即可。

自定义控件的使用你可以查询一下相关资料，和vb的基本是一样的

相关问答

Q1: vb.net界面设计 的工具栏里的一些基本图标，比如打开、保存、复制怎么添加啊？

用格式转换器(格式工厂)把ico格式转换成其他可识别的格式

然后在添加

下一步(你的意思是要在界面设计中 往窗体上添加工具栏吗?)

工具箱中 ---- 菜单和工具栏 ----- MenuStrip

窗体上方出现 '请再次键入'(vs2010中) 的框框 点一下就可以放"打开"什么的了

右面属性中找到Image属性.可以更改你自己的图片了.

知道了吗?

还有疑问你就追问 ````赫赫

Q2: VB.net制作启动界面

新建一个Sub ： Main

Private Sub Main()

xxx.show 'xxx指启动窗体

'载入图片、数据库之类的

Unload xxx

{from}.show '{from}指主界面

End Sub

然后在工程-属性将"Main"作为启动对象

Q3: 用vb.net编写程序 修改和界面设计

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

Q4: 如何使用VB.net或VB制作如下的界面

写程序不就行了，左边触发单击事件，然后执行相应的程序块之右边的内容变动就行了。

Q5: vb.net界面设计

可以先把外层的目录新建出来，代码如下：

Dim path As String

path = "c:\text\text\txt\text1.txt"

System.IO.Directory.CreateDirectory(path.Substring(0, InStrRev(path, "\"))) '建立path这个路径的所有所需目录

System.IO.File.WriteAllText(path, "牛年快乐", System.Text.Encoding.Default)