在任意form類或模塊中都可以創(chuàng)建類,跟建立函數(shù)和過(guò)程一樣。
創(chuàng)新互聯(lián)專注于開福企業(yè)網(wǎng)站建設(shè),自適應(yīng)網(wǎng)站建設(shè),商城建設(shè)。開福網(wǎng)站建設(shè)公司,為開福等地區(qū)提供建站服務(wù)。全流程按需設(shè)計(jì),專業(yè)設(shè)計(jì),全程項(xiàng)目跟蹤,創(chuàng)新互聯(lián)專業(yè)和態(tài)度為您提供的服務(wù)
示例:
public class form1
‘創(chuàng)建一個(gè)屬于form的子類,名稱為【類名】。
public class 類名
’定義類成員text
public text as string
end class
‘定義一個(gè)【類名】類的公共變量。
dim 類名1 as 類名
’定義一個(gè)過(guò)程,使用【類名】類的text成員
public sub 過(guò)程
‘實(shí)例化【類名1】
類名1=new 類名
類名1.text=“賦值”
’定義一個(gè)【新類】類的私用變量,并實(shí)例化。
dim 新類1 as new 新類
新類1.name=“一個(gè)字符串”
新類1.age=12
end sub
end class
‘’‘創(chuàng)建一個(gè)與form同級(jí)的類,名稱為【新類】
public class 新類
public sub new()
end sub
public name as string
public age as integer
end class
在模塊中使用:
public class module1
dim a as new form1.類名
end module
用Directory.CreateDirectory即可創(chuàng)建文件夾:
'?建立目錄
If?Not?Directory.Exists("C:\負(fù)屃\"??TextBox1.Text)?Then?'檢查文件夾是否存在
Directory.CreateDirectory("C:\負(fù)屃\"??TextBox1.Text)??'不存在,創(chuàng)建文件建夾
End?If
你的例子是因?yàn)樯倭艘粋€(gè)"\"引起的,正確的如下:
Dim?fsotest?As?New?FileSystemObject
If?fsotest.FileExists("C:\負(fù)屃\"??TextBox1.Text)?=?False?Then
fsotest.CreateFolder("C:\負(fù)屃\"??TextBox1.Text) '這里你少了一個(gè)\
End?If
MsgBox("創(chuàng)建成功")
.NET 的環(huán)境只有一個(gè),就是.NET Framework
如果你是XP系統(tǒng)的話一般要安裝4.0版本
下載的軟件當(dāng)然是visual studio;你可以使用visual studio2015,但是要注意開發(fā)時(shí)要選擇對(duì)應(yīng)的目標(biāo)框架
只要在這里能看到.NET Franmework4.0就表示你安裝好了
主要有以下幾步驟:
創(chuàng)建工程
界面設(shè)計(jì)
代碼編寫
功能調(diào)試
編譯打包
發(fā)布