none
Color cursor appears black RRS feed

תשובות

  • שבוע טוב

    הצלחתי באופן הבא

    windows forms

    Private Declare Unicode Function LoadCursorFromFile Lib "user32.dll" Alias "LoadCursorFromFileW" (ByVal filename As String) As IntPtr
    
    Private Sub boxball_MouseDown(sender As Object, e As System.Windows.Forms.MouseEventArgs) Handles boxball.MouseDown
            Dim hcur As IntPtr
            hcur = LoadCursorFromFile(Application.StartupPath & "\auxfile\mycursor.cur")
            boxball.Cursor = New Cursor(hcur)
          
        End Sub

    • הוצע כתשובה על-ידי pituachMVP, Moderator יום ראשון 22 מרץ 2015 05:54
    • סומן כתשובה על-ידי Shay_w יום ראשון 22 מרץ 2015 07:35
    שבת 21 מרץ 2015 18:51

כל התגובות

  • i have a problem and a puzzled:
    problem: i don't know english language.
    puzzled: why you do not ask your question in the global MSDN forums? It is very likely you'll get an answer (million visits), and they speak your language!

    But I will try to help anyway :)

    https://social.msdn.microsoft.com/Forums/windows/en-US/595a135b-36e6-45ed-9a09-835d34c79632/custom-cursor-showing-up-only-inblack

    This post was written using Google Translate, All rights & mistakes reserved :)


    יום חמישי 19 מרץ 2015 11:56
  • שבת שלום

    שים להערה הבאה שאני רואה בפרטי המחלקה:

    The Cursor class does not support animated cursors (.ani files) or cursors with colors other than black and white.

    זה ציטוט מהקישור הבא: https://msdn.microsoft.com/en-us/library/system.windows.forms.cursor(v=vs.110).aspx

    * יעזור אם תוכל לצרף לנו יותר מדיע ואולי דוגמה של פרויקט שאתה שכולל רק את הנושא הבעייתי.

    באיזה סוג פרויקט דרך אגב אתה עובד?
    אני מניח משם המתודה שאתה עובד ב Windows Forms


    signature   Ronen Ariely
     [Personal Site]    [Blog]    [Facebook]

    יום שישי 20 מרץ 2015 20:29
    מנחה דיון
  • שבוע טוב

    הצלחתי באופן הבא

    windows forms

    Private Declare Unicode Function LoadCursorFromFile Lib "user32.dll" Alias "LoadCursorFromFileW" (ByVal filename As String) As IntPtr
    
    Private Sub boxball_MouseDown(sender As Object, e As System.Windows.Forms.MouseEventArgs) Handles boxball.MouseDown
            Dim hcur As IntPtr
            hcur = LoadCursorFromFile(Application.StartupPath & "\auxfile\mycursor.cur")
            boxball.Cursor = New Cursor(hcur)
          
        End Sub

    • הוצע כתשובה על-ידי pituachMVP, Moderator יום ראשון 22 מרץ 2015 05:54
    • סומן כתשובה על-ידי Shay_w יום ראשון 22 מרץ 2015 07:35
    שבת 21 מרץ 2015 18:51
  • אהלן שי,

    לפי מה שאני רואה אתה לא צבעת את הסמן אלא מצאת פתרון עוקף. לעשות שימוש בתמונה שלך mycursor.cur, נכון?

    זה רעיון טוב לעקוף מגבלה :-)

    * אתה יכול לסמן את הפתרון שלך כתשובה לבעיה כדי לסגור את השרשור, אם זה הפתרון היחיד שמצאת כמתאים בשרשור, ותודה על העדכון. זה יוכל לעזור למי שיתקל באותה בעיה בעתיד :-)


    signature   Ronen Ariely
     [Personal Site]    [Blog]    [Facebook]



    יום ראשון 22 מרץ 2015 05:52
    מנחה דיון