VB中用滾動條瀏覽圖片的代碼是什么?
VB中用滾動條瀏覽圖片的代碼是什么?
窗體上添加兩個同樣大小的Picture控件Picture1、Picture2,再添加HScrollBar滾動條,ID為HScroll1,添加VScrollBar滾動條,ID為VScroll1添加如下代碼PrivateSubForm_Load()Picture2.AutoSize=TruePicture2.BorderStyle=0Picture1.ScaleMode=3Picture2.ScaleMode=3HScroll1.Max=Picture2.Width-Picture1.ScaleWidthVScroll1.Max=Picture2.Height-Picture1.ScaleHeightEndSubPrivateSubHScroll1_Change()Picture2.Left=-
導讀窗體上添加兩個同樣大小的Picture控件Picture1、Picture2,再添加HScrollBar滾動條,ID為HScroll1,添加VScrollBar滾動條,ID為VScroll1添加如下代碼PrivateSubForm_Load()Picture2.AutoSize=TruePicture2.BorderStyle=0Picture1.ScaleMode=3Picture2.ScaleMode=3HScroll1.Max=Picture2.Width-Picture1.ScaleWidthVScroll1.Max=Picture2.Height-Picture1.ScaleHeightEndSubPrivateSubHScroll1_Change()Picture2.Left=-
![](https://img.51dongshi.com/20241130/wz/18298839652.jpg)
窗體上添加兩個同樣大小的Picture控件Picture1、Picture2,再添加HScrollBar滾動條,ID為HScroll1 ,添加VScrollBar滾動條,ID為VScroll1 添加如下代碼 Private Sub Form_Load() Picture2.AutoSize = True Picture2.BorderStyle = 0 Picture1.ScaleMode = 3 Picture2.ScaleMode = 3 HScroll1.Max = Picture2.Width - Picture1.ScaleWidth VScroll1.Max = Picture2.Height - Picture1.ScaleHeight End Sub Private Sub HScroll1_Change() Picture2.Left = -HScroll1.Value End Sub Private Sub HScroll1_Scroll()'實現拖動滾動條時圖像即時滾動 Picture2.Left = -HScroll1.Value End Sub Private Sub VScroll1_Change() Picture2.Top = -VScroll1.Value End Sub Private Sub VScroll1_Scroll() '實現拖動滾動條時圖像即時滾動 Picture2.Top = -VScroll1.Value End Sub 即可實現滾動瀏覽圖片,其實Picture2的屬性Picture設置為要瀏覽的圖片
VB中用滾動條瀏覽圖片的代碼是什么?
窗體上添加兩個同樣大小的Picture控件Picture1、Picture2,再添加HScrollBar滾動條,ID為HScroll1,添加VScrollBar滾動條,ID為VScroll1添加如下代碼PrivateSubForm_Load()Picture2.AutoSize=TruePicture2.BorderStyle=0Picture1.ScaleMode=3Picture2.ScaleMode=3HScroll1.Max=Picture2.Width-Picture1.ScaleWidthVScroll1.Max=Picture2.Height-Picture1.ScaleHeightEndSubPrivateSubHScroll1_Change()Picture2.Left=-
為你推薦