Yahoo奇摩 網頁搜尋

  1. '用PaintPicture即可! '把圖形載入到 (1000,1000) twips的地方(如需以像素計算,請自行改scalemode): Picture1.PaintPicture LoadPicture("c:\mypic.jpg"), 1000, 1000 2008-01-10 21:17:16 補充: 要用API的話...要宣告...

  2. 可以利用 在核取方塊上按右鍵→控制項格式→儲存格連結(比如連到$a$1) 控制項會依照a1裡的值做改變 true →check false→uncheck #n/a→mix vb中的command只要改變a1的值即可 2008-01-20 21:35:55 補充: 那麼的話 在插入checkbox時 僅能利用 插入 activeX控制項的...

  3. 是用VB6.0嗎??? 2010-10-08 08:21:47 補充: Private Sub Command1_Click() X = Val(Text1) 'X軸座標,X值不要超出範圍 Y = Val(Text2) 'Y軸座標,Y值不要超出範圍...

  4. http://kevincyf.myweb.hinet.net/clubbox/ 裡面有明確的教學

  5. 1.開一個表單,點滑鼠右鍵選擇功能表編輯器2.在功能表編輯器標題填入 檔案(&F) ,名稱隨便你填(不能跟你現有物件同名)就 mFile 好了.3.按 下一個 按鈕,然後再按 → 按鈕,此時你就有一個附屬予檔案這個功能表底下的次功能表4.在次功能表標題填入 開啟舊檔(&...

  6. 基本上用Val(String)函數就可以解決你第四個問題 其他問題我都採用"靜音"處理 就是不使用MsgBox 而直接給合理值 Start的範圍限定在1~127 而End的範圍為2~128才會合理 以下是程式碼 Private Sub TextBoxStart...

  7. Sub test() a = Application.InputBox(prompt:="輸入第一數", Title:="a到b之間c的倍數") b = Application.InputBox(prompt:="輸入第二數", Title:="a到b之間c的倍數") c = Application...

  8. 乍看之下,還真不知你要的是什麼? 只好揣測你的程式意圖,修改後如下,請笑納。 Sub test() Sum = 0 a = Val(InputBox(prompt:="輸入第一數", Title:="a到b之間c的倍數")) b = Val(InputBox(prompt:="輸入第二數"...

  9. Public Class Form1 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load...

  10. 1.Dim score() As Double = {78, 66, 87, 58, 92} Dim i, Sum, avg As Integer Do While i <= 4 Sum += score(i) i = i + 1 Loop avg = Sum / 5...