① 滑鼠指針怎麼換圖案
電腦默認的滑鼠箭頭,是白色的,有些用戶,想改變一下滑鼠箭頭的顏色,但是不知道在哪裡改,下面一起來看看方法吧。
7/7
修改滑鼠指針即可。
② 電腦怎麼換滑鼠箭頭皮膚
1、首先電腦電腦桌面左下角的開始菜單,然後打開控制面板,如果找不到就直接搜索,然後打開。
2、將查看方式改成圖標,然後點擊「滑鼠」。
3、在滑鼠屬性窗口中,選到「指針」選項卡,然後點擊方案下面的下拉,可以選擇同類型滑鼠的其他樣式。
4、如果想使用自己下載的滑鼠指針,可以打開「瀏覽」,然後選擇需要更換的滑鼠箭頭樣式,點擊打開,然後點擊確定就行了。
③ vb如何把任意圖片縮放到固定大小的PictureBox並保持圖片原來的寬高比
PictureBox(圖片框)是Visual Basic中用來顯示圖形的基本控制項之一,用於在窗體指定位置顯示圖形信息,它支持多種格式的圖形文件,包括點陣圖文件(*.bmp,*.dib)、圖標文件(*.ico)、游標文件(*.cur)、圖元文件(*.wmf,*.emf),還有Internet 上流行的壓縮點陣圖格式的JPEG文件和GIF文件。最重要的功能是可以在它上面繪圖。但是PictureBox只有自動適應圖片大小的屬性,而沒有圖片適應控制項的屬性。
原題要「把任意圖片縮放到固定大小的PictureBox並保持圖片原來的寬高比」,也就是載入以後圖片不能變形。這樣比較繁瑣一些,但是效果很好,僅供你參考。
准備:在窗體上放置兩個PictureBox控制項,Picture1的長寬要相同(要是按照你的「
PictureBox解析度為,500*200」,圖像就變形了!),一個CommonDialog控制項,一個Command控制項。
代碼如下:
Option Explicit
Private Sub Command1_Click()
Dim imageWidth As Long
Dim imageHeight As Long
CommonDialog1.Filter = "(圖片文件)*.BMP;*.JPG;*.JPEG|*.BMP;*.JPG;*.JPEG" '用來選擇圖片
CommonDialog1.FilterIndex = 0
CommonDialog1.Action = 1
If CommonDialog1.FileName <> "" Then
Picture2.Picture = LoadPicture(CommonDialog1.FileName) '圖片載入到Pic2
If Picture2.ScaleWidth > Picture2.ScaleHeight Then
imageWidth = Picture1.ScaleWidth
imageHeight = Picture1.ScaleHeight * Picture2.ScaleHeight / Picture2.ScaleWidth
Else
imageWidth = Picture1.ScaleWidth * Picture2.ScaleWidth / Picture2.ScaleHeight
imageHeight = Picture1.ScaleHeight
End If
Picture1.Cls
Picture1.PaintPicture Picture2, (Picture1.ScaleWidth - imageWidth) / 2, (Picture1.ScaleHeight - imageHeight) / 2, imageWidth, imageHeight, 0, 0, Picture2.ScaleWidth, Picture2.ScaleHeight
End If
End Sub
Private Sub Form_Load()
Picture1.AutoRedraw = True '重繪圖片
Picture1.AutoSize = False '圖片框大小不變
Picture1.Visible = True
Picture1.BackColor = RGB(0, 255, 0) '設置圖片框背景顏色
Picture2.AutoSize = True 'Picture2自動縮放以適應圖片,不可見
Picture2.Visible = False
Command1.Caption = "選擇圖片"
End Sub
該代碼在VB6測試通過,結果如下:
④ 怎麼改變電腦滑鼠的圖案
一、打開「控制面板」,打開「滑鼠」