| VB.NET | |
|
001 002 003 004 005 006 007 008 009 010 011 012 013 014 |
Dim ico As Icon Dim cur As Cursor Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load ' Iconオブジェクトを作成 ico = New Icon("E:\Cursor.ico") ' IconオブジェクトのハンドルからCursorオブジェクトを作成 cur = New Cursor(ico.Handle) Me.Cursor = cur End Sub |
| C# | |
|
001 002 003 004 005 006 007 008 009 010 011 012 013 014 015 |
Icon ico; Cursor cur; private void Form1_Load( System.Object sender, System.EventArgs e ) { // Iconオブジェクトを作成 ico = new Icon( "E:\\Cursor.ico" ); // IconオブジェクトのハンドルからCursorオブジェクトを作成 cur = new Cursor( ico.Handle ); this.Cursor = cur; } |