View Full Version : سوال: استفاده از کرسر animated cursor
adelniya_m
شنبه 05 شهریور 1390, 16:43 عصر
سلام چطور می شه از کرسر های انیمیشنی در برنامه استفاده کرد؟؟
Mani_rf
یک شنبه 06 شهریور 1390, 10:44 صبح
به این لینک (http://www.developer.com/net/vb/article.php/1541491/Using-Animated-Cursors-in-Visual-Basic.htm)نگاهی بی انداز؛ کمکت میکنه.
adelniya_m
یک شنبه 06 شهریور 1390, 11:14 صبح
به این لینک (http://www.developer.com/net/vb/article.php/1541491/Using-Animated-Cursors-in-Visual-Basic.htm)نگاهی بی انداز؛ کمکت میکنه.
راه ساده تری نداره؟؟؟ تو سی شارپ خیلی راحت میشد همچین کاری کرد:متعجب:
Mani_rf
یک شنبه 06 شهریور 1390, 14:35 عصر
راه ساده تری نداره؟؟؟ تو سی شارپ خیلی راحت میشد همچین کاری کرد:متعجب:
اگه میشه این راه ساده تر که تو #C وجود داره را بگو تا معادش تو VB را برایت بگذارم.
adelniya_m
یک شنبه 06 شهریور 1390, 14:46 عصر
اگه میشه این راه ساده تر که تو #C وجود داره را بگو تا معادش تو VB را برایت بگذارم.
معادلش تو vb رو نوشتم جواب نداد .کلی خطا داد . به خاطر هین اومدم اینجا
Mani_rf
دوشنبه 07 شهریور 1390, 12:45 عصر
معادلش تو vb رو نوشتم جواب نداد .کلی خطا داد . به خاطر هین اومدم اینجا
دوست عزیز حالا این فرست را به من هم بده تا 1 امتحانی بکنم. لطفا...
omid-vbAuto
دوشنبه 07 شهریور 1390, 20:01 عصر
با سلام
ما چطوری می تونیم یک کرسور خاص بسازیم. و بعد از ساختنش با چه کدی فراخوانی و استفاده کنیم؟
d_derakhshani
دوشنبه 07 شهریور 1390, 22:50 عصر
برای ساخت کرسر باید بگردید دنبال نرم افزارهای ساخت آیکون و کرسر. اما برای بارگذاری کرسر می تونید از کد زیر 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
شنبه 12 شهریور 1390, 13:18 عصر
دوست عزیز حالا این فرست را به من هم بده تا 1 امتحانی بکنم. لطفا...
شرمنده کدش دقیق یادم نبود تا پیداش کنم طول کشید :this.cursor = advancedcursors.create(Path.combline(application.s tartpath,cursorname))
Mani_rf
شنبه 12 شهریور 1390, 14:24 عصر
ببین دوست عزیز این advancedcursors یک زیر مجموعه از یک کلاس، DLL و یا یک تابع API است که فراخانی شده است. ادامه کد رو پیدا کن، اصل ماجرا اومجاس. روی advancedcursors کلیک کن و F12 رو بزن تا بجایی که تعیف شده بری، بعد ببین که از کجا داره خونده میشه. اون را بده لطفا
Mani_rf
شنبه 12 شهریور 1390, 14:48 عصر
پیداش کردم، به زبان VB هم هست اتفاقا. این را نگاه کن (http://www.bukisa.com/articles/404403_how-to-make-a-simple-game-using-vbnet)اگر متوجه نشدی برات 1 مثال بزارم. من نگاه کردم ساده بود.
mobtakercode
شنبه 12 شهریور 1390, 23:14 عصر
http://www.mobtakercode.com/2010.php
vBulletin® v4.2.5, Copyright ©2000-1403, Jelsoft Enterprises Ltd.