VBNet - Форум - Как перевести этот пример из VB6 на VBNet 2003

Вопрос: Как перевести этот пример из VB6 на VBNet 2003 Добавлено: 27.03.06 07:21

Автор вопроса: Nikolai

VERSION 5.00
Begin VB.Form Form1
   BackColor = &H00004040&
   BorderStyle = 1 'Fixed Single
   Caption = "http://hotmix.narod.ru"
   ClientHeight = 3495
   ClientLeft = 45
   ClientTop = 330
   ClientWidth = 5895
   LinkTopic = "Form1"
   MaxButton = 0 'False
   MinButton = 0 'False
   ScaleHeight = 3495
   ScaleWidth = 5895
   StartUpPosition = 2 'CenterScreen
   Begin VB.Label Label1
      AutoSize = -1 'True
      BackStyle = 0 'Transparent
      Caption = "Welcome to HotMix"
      BeginProperty Font
         Name = "MS Sans Serif"
         Size = 13.5
         Charset = 204
         Weight = 400
         Underline = 0 'False
         Italic = 0 'False
         Strikethrough = 0 'False
      EndProperty
      ForeColor = &H0000C0C0&
      Height = 360
      Left = 360
      TabIndex = 0
      Top = 360
      Width = 2475
   End
   Begin VB.Image Image1
      Height = 3255
      Left = 3240
      Picture = "Form1.frx":0000
      Top = 120
      Width = 2355
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Private Declare Function LoadCursorFromFile Lib "user32" Alias "LoadCursorFromFileA" (ByVal lpFileName As String) As Long
Private Declare Function SetClassLong Lib "user32" Alias "SetClassLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Const GCL_HCURSOR = (-12)
Private hOldCursor As Long

Private Sub Form_Load()
Dim hNewCursor As Long
hNewCursor = LoadCursorFromFile(App.Path & "\Sword.ani")
hOldCursor = SetClassLong(hwnd, GCL_HCURSOR, hNewCursor)
End Sub

Private Sub Form_Unload(Cancel As Integer)
hOldCursor = SetClassLong(hwnd, GCL_HCURSOR, hOldCursor)

End Sub
Ответить

Ответы Всего ответов: 4

Номер ответа: 1 Автор ответа: ⊗WaX⊗ Вопросов: 26 Ответов: 325	Web-сайт: sapfir.cift.ru Профиль \| \| #1	Добавлено: 27.03.06 08:57
	а в чем проблема то собссно? все совершенно прозрачно Ответить

Номер ответа: 2 Автор ответа: Nikolai Вопросов: 23 Ответов: 58	Профиль \| \| #2	Добавлено: 27.03.06 18:16
	Да нет в VBNet не работает: LoadCursorFromFile, SetClassLong, hwnd. Ответить

Номер ответа: 3 Автор ответа: EROS Вопросов: 58 Ответов: 4255	Профиль \| \| #3	Добавлено: 28.03.06 01:23
	В .NET это решается совершенно по другому. Как один из вариантов: Добавь References System.Drawing Использование: Dim Bmp As Bitmap = Bitmap.FromFile("F:\TestImage\Test.png" Me.Cursor = New Cursor(Bmp.GetHicon) Ответить

Номер ответа: 4 Автор ответа: EROS Вопросов: 58 Ответов: 4255	Профиль \| \| #4	Добавлено: 28.03.06 01:57
	А пример не работает потому что в объявлениях надо все Long заменить на Integer, и вместо Hwnd использовать IntPtr Ответить

Страница: 1 |