[發問] 有關image圖片顯示問題!!!!

afu9240

請教各位前輩!!!!
請問一下image一定要有一個CommandButton去控制圖片才會顯示,,,請問有什麻方法可以show userform1時,image內的圖片自動顯示嗎??...求協助 謝謝


Private Sub CommandButton1_Click()
    Image1.Picture = LoadPicture("C:\PCA-7039\20180516.jpg")
End Sub

nolookyou

回復 1# afu9240


    請教版大~
    您要的效果像影片這樣嗎?
    0517.rar (304.33 KB)

下載次數: 12

2018-5-17 09:18

afu9240

回復 2# nolookyou


    感謝n大回覆  感謝*2000
不過您的檔案我這邊好像無法開啟 ,不知是有鎖定還是內容無法開啟!!!!!

nolookyou

回復 3# afu9240


    我把影片改放我自己的google雲端硬碟，
    麻煩版大試連看看
   
    https://drive.google.com/file/d/1Sdmk9OQDhsZkCvd1YkTkAaImeIkjZtHb/view?usp=sharing

afu9240

回復 4# nolookyou


    感謝n大回覆,感謝*2000
  userform1.show直接可以看到iamge圖片,,我就是要這種方式,想請問這樣要如何設定,code哪裡要做修改嗎???煩請n大協助 感謝*2000

Hsieh

回復 1# afu9240
表單初始化事件

1. Private Sub UserForm_Initialize()
   
2. Me.Image1.Picture = LoadPicture("C:\PCA-7039\20180516.jpg")
   
3. End Sub

複製代碼

nolookyou

回復 5# afu9240


    我把比較詳細的程式碼設計內容用在影片裡面，連結如下：

    https://drive.google.com/file/d/1nYWv8V3b4iPtwBW603Sa9bU6dc5gUDAE/view?usp=sharing

    關鍵程式碼段落這寫在下面，有2段，分別是 CommandButton1_Click() 與 UserForm_Initialize()

1. '寫在工作表1裡面
   
2. Private Sub CommandButton1_Click()
   
3.     UserForm1.Show
   
4. End Sub
   
5. 
   
6. '寫在表單UserForm1裡面
   
7. Private Sub UserForm_Initialize()
   
8.     Image1.Picture = LoadPicture("C:\PCA-7039\20180516.jpg")
   
9. End Sub

複製代碼

afu9240

回復 6# Hsieh


    感謝超級版主回覆 感謝*2000

  我又忘了初始化的部分....感謝

afu9240

回復 7# nolookyou

感謝n大協助 ,,,,,我忘了初始化的部分 感謝*2000  謝謝

nolookyou

回復 9# afu9240


    寫程式就是這樣，忘是正常的，熱血多練習寫多次一點就會越來越熟，
    等到版大練到有一天突然覺得，
    阿!!!我可以來幫其他論壇網友解問題了的時候，
    那就是版大獲得初步成就的時候
   
    加油喔，你可以 der~~^^