1樓:匿名使用者
1 file1.pattern="*.bmp"
2 dir1.path = drive1.drive3 file1.path = dir1.path4 right(file1.path,1)<> "\"
5 image1.picture = loadpicture(fs)
2樓:vb妮可
private sub form_load()file1.pattern = "*.bmp"
end sub
private sub drive1_change()dir1.path = drive1.driveend sub
private sub dir1_change()file1.path = dir1.pathend sub
private sub file1_dblclick()dim fs as string
if right(file1.path, 1) <> "\" then
fs = file1.path + "\" + file1.filename
else
fs = file1.path + file1.filenameend if
image1.picture = loadpicture(fs)end sub
急求高手幫忙解決問題c語言編寫程式題急
include 函式作用 將陣列 s 的位置在 n1 至 n2 之間的元素,首尾依次交換。也就是第 n1 個元素和第 n2 個元素交換,也就是第 n1 1 個元素和第 n2 1 個元素交換,也就是第 n1 2 個元素和第 n2 2 個元素交換,void fun int s,int n1,int n2...
請教VB高手程式執行時間的問題,請教VB高手一個程式執行時間的問題
你可以這樣計算 開始程式前先執行一段 private declare function gettickcount lib kernel32 as long dim pertime as long private sub form load dim timer1 as long timer1 gett...
應用程式錯誤問題!急! 高手請進!
1.首先排除病毒原因,使用防毒軟體,比如最新版本的360防毒快速查殺3 5分鐘,根據檢查結果,點選立即處理。2.如果應用程式出錯的提示是缺少某個檔案,那就可能是這個檔案損壞,根據這個元件查詢是哪個系統元件損壞,重新安裝相關元件,恢復程式檔案,一般即可解決。3.若是相關軟體自身的元件缺失,只需要重新安...