重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
可以先把外层的目录新建出来,代码如下:
专注于为中小企业提供网站设计、成都网站设计服务,电脑端+手机端+微信端的三站合一,更高效的管理,为中小企业贵定免费做网站提供优质的服务。我们立足成都,凝聚了一批互联网行业人才,有力地推动了上千多家企业的稳健成长,帮助中小企业通过网站建设实现规模扩充和转变。
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)
大体说下思路吧,需要用到“自定义控件”,把自定义控件设计为“Tablen”的样式(里面用到多个label),然后根据数据查询结果,动态的把“自定义控件”的实例加到panel控件(Autoscroll设为true)上(或者flowlayoutpanel)即可。
自定义控件的使用你可以查询一下相关资料,和vb的基本是一样的
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
去学 WPF Windows Presentation Foundation(WPF)是微软新一代图形系统,运行在.NET Framework 3.0架构下,为用户界面、2D/3D 图形、文档和媒体提供了统一的描述和操作方法。基于DirectX 9/10技术的WPF不仅带来了前所未有的3D界面,而且其图形向量渲染引擎也大大改进了传统的2D界面,比如Vista中的半透明效果的窗体等都得益于WPF。在Windows Vista中,图形系统已经移出了内核模式,并有自己的空间--WPF。WPF不再唯一依靠GDI图形API,更多的依靠Direct3D处理图形操作,尽量不用CPU进行显示,而是用显示卡的图形处理单元(Graphics Processing Unit, GPU),用矢量图代替位图。
有个办法就是用图片直接当按钮,鼠标移到图上时显示一个图,鼠标移出图片时显示另一个图,按下时显示一个图 把图的Click事件当按钮的Click来用,松开鼠标时显示另一个图,我以前试过,效果不错,就是事件处理时比用按钮麻烦点,要写鼠标移入、移出、按下、松开的代码
不难的,vb.net的语言比vb的完整些而已。而且一样可以利用英文的理解方法理解vb.net的代码,相对来说,vb.net更容易。语法来看,vb多数是用缩写的,而vb.net是用完整的单词,更便于理解,而且API也简化了很多。
所以,vb转vb.net是很容易上手的。