返回列表 上一主題 發帖

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

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

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


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

回復 1# afu9240


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

TOP

回復 2# nolookyou


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

TOP

回復 3# afu9240


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

TOP

回復 4# nolookyou


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

TOP

回復 1# afu9240
表單初始化事件
  1. Private Sub UserForm_Initialize()
  2. Me.Image1.Picture = LoadPicture("C:\PCA-7039\20180516.jpg")
  3. End Sub
複製代碼
學海無涯_不恥下問

TOP

回復 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. '寫在表單UserForm1裡面
  6. Private Sub UserForm_Initialize()
  7.     Image1.Picture = LoadPicture("C:\PCA-7039\20180516.jpg")
  8. End Sub
複製代碼

TOP

回復 6# Hsieh


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

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

TOP

回復 7# nolookyou

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

TOP

回復 9# afu9240


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

TOP

        靜思自在 : 人要自愛,才能愛普天下的人。
返回列表 上一主題