استفاده از کرسر animated cursor

[adelniya_m]

سلام چطور می شه از کرسر های انیمیشنی در برنامه استفاده کرد؟؟

[Mani_rf]

به این لینک (http://www.developer.com/net/vb/article.php/1541491/Using-Animated-Cursors-in-Visual-Basic.htm)نگاهی بی انداز؛ کمکت میکنه.

[adelniya_m]

به این لینک (http://www.developer.com/net/vb/article.php/1541491/Using-Animated-Cursors-in-Visual-Basic.htm)نگاهی بی انداز؛ کمکت میکنه.

راه ساده تری نداره؟؟؟ تو سی شارپ خیلی راحت میشد همچین کاری کرد:متعجب:

[Mani_rf]

راه ساده تری نداره؟؟؟ تو سی شارپ خیلی راحت میشد همچین کاری کرد:متعجب:

اگه میشه این راه ساده تر که تو #C وجود داره را بگو تا معادش تو VB را برایت بگذارم.

[adelniya_m]

اگه میشه این راه ساده تر که تو #C وجود داره را بگو تا معادش تو VB را برایت بگذارم.
معادلش تو vb رو نوشتم جواب نداد .کلی خطا داد . به خاطر هین اومدم اینجا

[Mani_rf]

معادلش تو vb رو نوشتم جواب نداد .کلی خطا داد . به خاطر هین اومدم اینجا
دوست عزیز حالا این فرست را به من هم بده تا 1 امتحانی بکنم. لطفا...

[omid-vbAuto]

با سلام

ما چطوری می تونیم یک کرسور خاص بسازیم. و بعد از ساختنش با چه کدی فراخوانی و استفاده کنیم؟

[d_derakhshani]

برای ساخت کرسر باید بگردید دنبال نرم افزارهای ساخت آیکون و کرسر. اما برای بارگذاری کرسر می تونید از کد زیر VB.Net استفاده:


Imports System.Runtime.InteropServices

Public Class Form1

<DllImport("user32.dll")> _
Private Shared Function LoadCursorFromFile(ByVal file As String) As IntPtr
End Function
<DllImport("user32.dll")> _
Private Shared Function DestroyCursor(ByVal cursor As IntPtr) As Integer
End Function

Public Shared Function LoadCursor(ByVal filePath As String) As Cursor
Dim hAniPt As IntPtr = LoadCursorFromFile(filePath)
Return New Cursor(hAniPt)
End Function

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.Cursor = LoadCursor("FileAddress")
End Sub

End Class

[adelniya_m]

دوست عزیز حالا این فرست را به من هم بده تا 1 امتحانی بکنم. لطفا...
شرمنده کدش دقیق یادم نبود تا پیداش کنم طول کشید :this.cursor = advancedcursors.create(Path.combline(application.s tartpath,cursorname))

[Mani_rf]

ببین دوست عزیز این advancedcursors یک زیر مجموعه از یک کلاس، DLL و یا یک تابع API است که فراخانی شده است. ادامه کد رو پیدا کن، اصل ماجرا اومجاس. روی advancedcursors کلیک کن و F12 رو بزن تا بجایی که تعیف شده بری، بعد ببین که از کجا داره خونده میشه. اون را بده لطفا

[Mani_rf]

پیداش کردم، به زبان VB هم هست اتفاقا. این را نگاه کن (http://www.bukisa.com/articles/404403_how-to-make-a-simple-game-using-vbnet)اگر متوجه نشدی برات 1 مثال بزارم. من نگاه کردم ساده بود.

[mobtakercode]

http://www.mobtakercode.com/2010.php