十年網(wǎng)站開發(fā)經(jīng)驗(yàn) + 多家企業(yè)客戶 + 靠譜的建站團(tuán)隊(duì)
量身定制 + 運(yùn)營維護(hù)+專業(yè)推廣+無憂售后,網(wǎng)站問題一站解決
大體說下思路吧,需要用到“自定義控件”,把自定義控件設(shè)計(jì)為“Tablen”的樣式(里面用到多個(gè)label),然后根據(jù)數(shù)據(jù)查詢結(jié)果,動(dòng)態(tài)的把“自定義控件”的實(shí)例加到panel控件(Autoscroll設(shè)為true)上(或者flowlayoutpanel)即可。

創(chuàng)新互聯(lián)是專業(yè)的北流網(wǎng)站建設(shè)公司,北流接單;提供做網(wǎng)站、成都網(wǎng)站建設(shè),網(wǎng)頁設(shè)計(jì),網(wǎng)站設(shè)計(jì),建網(wǎng)站,PHP網(wǎng)站建設(shè)等專業(yè)做網(wǎng)站服務(wù);采用PHP框架,可快速的進(jìn)行北流網(wǎng)站開發(fā)網(wǎng)頁制作和功能擴(kuò)展;專業(yè)做搜索引擎喜愛的網(wǎng)站,專業(yè)的做網(wǎng)站團(tuán)隊(duì),希望更多企業(yè)前來合作!
自定義控件的使用你可以查詢一下相關(guān)資料,和vb的基本是一樣的
用格式轉(zhuǎn)換器(格式工廠)把ico格式轉(zhuǎn)換成其他可識(shí)別的格式
然后在添加
下一步(你的意思是要在界面設(shè)計(jì)中 往窗體上添加工具欄嗎?)
工具箱中 ---- 菜單和工具欄 ----- MenuStrip
窗體上方出現(xiàn) '請(qǐng)?jiān)俅捂I入'(vs2010中) 的框框 點(diǎn)一下就可以放"打開"什么的了
右面屬性中找到Image屬性.可以更改你自己的圖片了.
知道了嗎?
還有疑問你就追問 ````赫赫
新建一個(gè)Sub : Main
Private Sub Main()
xxx.show 'xxx指啟動(dòng)窗體
'載入圖片、數(shù)據(jù)庫之類的
Unload xxx
{from}.show '{from}指主界面
End Sub
然后在工程-屬性將"Main"作為啟動(dòng)對(duì)象
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?=?"錯(cuò)誤"
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?=?"你已經(jīng)答了"?+?aa.ToString?+?"題,答對(duì)"?+?i.ToString?+?"題,"?+?"答錯(cuò)"?+?j.ToString?+?"題。"
End?Sub
寫程序不就行了,左邊觸發(fā)單擊事件,然后執(zhí)行相應(yīng)的程序塊之右邊的內(nèi)容變動(dòng)就行了。
可以先把外層的目錄新建出來,代碼如下:
Dim path As String
path = "c:\text\text\txt\text1.txt"
System.IO.Directory.CreateDirectory(path.Substring(0, InStrRev(path, "\"))) '建立path這個(gè)路徑的所有所需目錄
System.IO.File.WriteAllText(path, "牛年快樂", System.Text.Encoding.Default)