دوستان خیلی عالی بود ولی من الان یک فرم دارم اصلا با این کامپونت ها جور نمی شه ببینید کنترل ها روی فرم جاشون تنظیم نیست یعنی حدودا 2 3 سانت می یان پایین چی کار کنم من
می دونم الان بعضی ها می گن خب کنترلت رو 2 3 سانت ببر بالا اما خیلی بهتر بود تا سورس کال کامپونت رو کسی داشت
مشکلتون رو دقیق متجه نشدم. می تونین با تصویر توضیح بدین که مشکل چیه؟
برنامه ای درست کردم که توش کامپوننت به کار بردم.
حالا اگر بخوام برنامه رو توی کامپیوتر دیگه ای اجرا کنم باید کامپوننت ها رو چطور بهش معرفی کنم؟
نمی خوام برای برنامه Setup درست کنم.
آیا با کپی کردن OCX ها داخل پوشه System32 مشکل حل میشه؟
یا اگر فایل های OCX رو کنار فایل اجرایی نگه دارم، چطور؟
البته با این دوتا امتحان کردم ولی فکر نکنم درست شده باشه.
آیا کامپوننت ها در کامپیوتر مقصد هم نیاز به رجیستر شدن دارن؟
بله ، البته ، کامپوننت ها باید رجیستر بشن! تازه شما می تونی Stand alone هم بکنی برنامه ت رو! فک کنم تو وبلاگ escada بود!
سلام ببينيد كدها چطورن
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 & "\****.ani")
hOldCursor = SetClassLong(hwnd, GCL_HCURSOR, hNewCursor)
End Sub