ROSTAM2
سه شنبه 18 مرداد 1401, 23:26 عصر
سلام
با این کدها شما می تونید فایلهای Cursor - PNG و Icon رو بعنوان Cursor استفاده کنید.
Public Class Form2
Dim Cur As Icon
Dim ICO As Icon
Dim BMP As Bitmap
Private Sub Form2_Load(sender As Object, e As System.EventArgs) Handles Me.Load
Dim CursorPath As String = String.Format("{0}{1}\link.cur", Application.StartupPath, "\Cursors")
Cur = Icon.ExtractAssociatedIcon(CursorPath)
Me.PictureBox1.Image = Cur.ToBitmap
Me.PictureBox1.Cursor = New Cursor(Cur.Handle)
Dim IconPath As String = String.Format("{0}{1}\Search.ico", Application.StartupPath, "\Images")
ICO = New Icon(IconPath)
Me.PictureBox2.Image = Image.FromFile(IconPath)
Me.PictureBox2.Cursor = New Cursor(ICO.Handle)
Dim ImagePath As String = String.Format("{0}{1}\New Folder.png", Application.StartupPath, "\Images")
BMP = New Bitmap(Image.FromFile(ImagePath), New Size(24, 24))
Me.PictureBox3.Image = BMP
Me.PictureBox3.Cursor = New Cursor(BMP.GetHicon)
End Sub
End Class
153953
با این کدها شما می تونید فایلهای Cursor - PNG و Icon رو بعنوان Cursor استفاده کنید.
Public Class Form2
Dim Cur As Icon
Dim ICO As Icon
Dim BMP As Bitmap
Private Sub Form2_Load(sender As Object, e As System.EventArgs) Handles Me.Load
Dim CursorPath As String = String.Format("{0}{1}\link.cur", Application.StartupPath, "\Cursors")
Cur = Icon.ExtractAssociatedIcon(CursorPath)
Me.PictureBox1.Image = Cur.ToBitmap
Me.PictureBox1.Cursor = New Cursor(Cur.Handle)
Dim IconPath As String = String.Format("{0}{1}\Search.ico", Application.StartupPath, "\Images")
ICO = New Icon(IconPath)
Me.PictureBox2.Image = Image.FromFile(IconPath)
Me.PictureBox2.Cursor = New Cursor(ICO.Handle)
Dim ImagePath As String = String.Format("{0}{1}\New Folder.png", Application.StartupPath, "\Images")
BMP = New Bitmap(Image.FromFile(ImagePath), New Size(24, 24))
Me.PictureBox3.Image = BMP
Me.PictureBox3.Cursor = New Cursor(BMP.GetHicon)
End Sub
End Class
153953