Rubellos

  • VB.NET

Es gibt 69 Antworten in diesem Thema. Der letzte Beitrag () ist von Torty H.

    Noch ne Frage am schluss

    Hab nen eigenen Cursor den hab ich in meine resurcen rein aber irgentwie läst sich der nit aufrufen mit

    VB.NET-Quellcode

    1. My.Resources.blabla
    3. 'Verwenden wolte ich das so '
    4. Me.Cursor = New Cursor(My.Application.Info.DirectoryPath & "/buerste.cur")
    5. 'Oder SO'
    6. Me.Cursor = New Cursor(My.Resources.buerste)
    8. 'und dann der Memory Fehler -.-
    10. 'System.OutOfMemoryException wurde nicht behandelt.
    11. Message="Nicht genügend Speicher verfügbar, um das Programm weiter auszuführen."
    12. Source="System.Windows.Forms"
    13. StackTrace:
    14. bei System.Windows.Forms.UnsafeNativeMethods.IPersistStream.Load(IStream pstm)
    15. bei System.Windows.Forms.Cursor.LoadPicture(IStream stream)
    16. bei System.Windows.Forms.Cursor..ctor(String fileName)
    17. bei SampleClient.Tammy.PictureBox2_MouseMove(Object sender, MouseEventArgs e) in C:\Users\SHTH\***\***\***\***\****\***.vb:Zeile 49.
    18. bei System.Windows.Forms.Control.WmMouseMove(Message& m)
    19. bei System.Windows.Forms.Control.WndProc(Message& m)
    20. bei System.Windows.Forms.Control.ControlNativeWindow.WndProc(Message& m)
    21. bei System.Windows.Forms.NativeWindow.DebuggableCallback(IntPtr hWnd, Int32 msg, IntPtr wparam, IntPtr lparam)
    22. bei System.Windows.Forms.UnsafeNativeMethods.DispatchMessageW(MSG& msg)
    23. bei System.Windows.Forms.Application.ComponentManager.System.Windows.Forms.UnsafeNativeMethods.IMsoComponentManager.FPushMessageLoop(Int32 dwComponentID, Int32 reason, Int32 pvLoopData)
    24. bei System.Windows.Forms.Application.ThreadContext.RunMessageLoopInner(Int32 reason, ApplicationContext context)
    25. bei System.Windows.Forms.Application.ThreadContext.RunMessageLoop(Int32 reason, ApplicationContext context)
    26. bei Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase.OnRun()
    27. bei Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase.DoApplicationModel()
    28. bei Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase.Run(String[] commandLine)
    29. bei SampleClient.My.MyApplication.Main(String[] Args) in 17d14f5c-a337-4978-8281-53493378c1071.vb:Zeile 81.
    30. bei System.AppDomain._nExecuteAssembly(Assembly assembly, String[] args)
    31. bei System.Runtime.Hosting.ApplicationActivator.CreateInstance(ActivationContext activationContext, String[] activationCustomData)
    32. bei Microsoft.VisualStudio.HostingProcess.HostProc.RunUsersAssemblyDebugInZone()
    33. bei System.Threading.ExecutionContext.Run(ExecutionContext executionContext, ContextCallback callback, Object state)
    34. bei System.Threading.ThreadHelper.ThreadStart()
    35. InnerException:
    36. '
    38. 'desweiteren hier gefunden
    41. Using ms As New MemoryStream(My.Application.Info.DirectoryPath & "/buerste.cur")
    42. Me.Cursor = New Cursor(ms)
    43. End Using
    45. Neuer Fehler
    47. 'System.InvalidCastException wurde nicht behandelt.
    48. Message="Ungültige Konvertierung von der Zeichenfolge C:\Users\SHTH\***\*** in Typ Integer."
    49. Source="Microsoft.VisualBasic"
    50. StackTrace:
    51. bei Microsoft.VisualBasic.CompilerServices.Conversions.ToInteger(String Value)
    52. bei SampleClient.Tammy.PictureBox2_MouseMove(Object sender, MouseEventArgs e) in C:\Users\SHTH\****\***\***\***\***\***.vb:Zeile 51.
    53. bei System.Windows.Forms.Control.WmMouseMove(Message& m)
    54. bei System.Windows.Forms.Control.WndProc(Message& m)
    55. bei System.Windows.Forms.Control.ControlNativeWindow.WndProc(Message& m)
    56. bei System.Windows.Forms.NativeWindow.DebuggableCallback(IntPtr hWnd, Int32 msg, IntPtr wparam, IntPtr lparam)
    57. bei System.Windows.Forms.UnsafeNativeMethods.DispatchMessageW(MSG& msg)
    58. bei System.Windows.Forms.Application.ComponentManager.System.Windows.Forms.UnsafeNativeMethods.IMsoComponentManager.FPushMessageLoop(Int32 dwComponentID, Int32 reason, Int32 pvLoopData)
    59. bei System.Windows.Forms.Application.ThreadContext.RunMessageLoopInner(Int32 reason, ApplicationContext context)
    60. bei System.Windows.Forms.Application.ThreadContext.RunMessageLoop(Int32 reason, ApplicationContext context)
    61. bei Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase.OnRun()
    62. bei Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase.DoApplicationModel()
    63. bei Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase.Run(String[] commandLine)
    64. bei SampleClient.My.MyApplication.Main(String[] Args) in 17d14f5c-a337-4978-8281-53493378c1071.vb:Zeile 81.
    65. bei System.AppDomain._nExecuteAssembly(Assembly assembly, String[] args)
    66. bei System.Runtime.Hosting.ApplicationActivator.CreateInstance(ActivationContext activationContext, String[] activationCustomData)
    67. bei Microsoft.VisualStudio.HostingProcess.HostProc.RunUsersAssemblyDebugInZone()
    68. bei System.Threading.ExecutionContext.Run(ExecutionContext executionContext, ContextCallback callback, Object state)
    69. bei System.Threading.ThreadHelper.ThreadStart()
    70. InnerException: System.FormatException
    71. Message="Die Eingabezeichenfolge hat das falsche Format."
    72. Source="Microsoft.VisualBasic"
    73. StackTrace:
    74. bei Microsoft.VisualBasic.CompilerServices.Conversions.ParseDouble(String Value, NumberFormatInfo NumberFormat)
    75. bei Microsoft.VisualBasic.CompilerServices.Conversions.ToInteger(String Value)
    76. InnerException:
    77. '



    Steh ma wieder aufen schlauch hab den cursor in den auch da wo er angegeben is

    -.-

    eine Minute googlen:
    eigener Cursor

    VB.NET-Quellcode

    1. ' Erstellen eines neuen Stream
    2. Dim oStream As System.IO.Stream
    4. ' Mauszeiger laden
    5. oStream = Me.GetType().Assembly.GetManifestResourceStream( _
    6. "Projektname.Cursordatei.cur")
    8. ' Mauszeiger festlegen
    9. Me.Cursor = New Cursor(oStream)
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    RodFromGermany schrieb:

    eine Minute googlen:
    eigener Cursor

    VB.NET-Quellcode

    1. ' Erstellen eines neuen Stream
    2. Dim oStream As System.IO.Stream
    4. ' Mauszeiger laden
    5. oStream = Me.GetType().Assembly.GetManifestResourceStream( _
    6. "Projektname.Cursordatei.cur")
    8. ' Mauszeiger festlegen
    9. Me.Cursor = New Cursor(oStream)

    das hab ich auch schom gefunden -.- daher hab ich auch das mit dem memory oO

    VB.NET-Quellcode

    1. Der Objektverweis wurde nicht auf eine Objektinstanz festgelegt.


    "Projektname. << ???

    Ich hätt auch noch ne frage ich hab den Code von Erfinder (den für vb 08)

    Und da hätt ich diese Frage:

    Wie setzte ich das freigerubbelte wieder zurück? (So als wäre nie gerubbelt worden)
    Mfg: Gather
    Private Nachrichten bezüglich VB-Fragen werden Ignoriert!

    Ich hab das ganze mit nem Random prinzip versehen. Es geht. Aber damit etwas anderes kommt muss ich immer das Programm neustarten.
    Also mit dem zurücksetzen code kommt ja kein neues random.

    Wo muss ich also das Randomprinzip einbauen damit es funktioniert.

    VB.NET-Quellcode

    1. Dim rnd As New Random
    3. Public Sub New()
    4. InitializeComponent()
    5. Dim bmp = New Bitmap(Panel1.Width, Panel1.Height)
    6. Using g = Graphics.FromImage(bmp)
    7. TextBox1.Text = rnd.Next(1, 8)
    8. If TextBox1.Text = 1 Then
    9. g.DrawImage(My.Resources._0Coins, New Rectangle(Point.Empty, bmp.Size))
    10. ElseIf TextBox1.Text = 2 Then
    11. g.DrawImage(My.Resources._500coins, New Rectangle(Point.Empty, bmp.Size))
    12. ElseIf TextBox1.Text = 3 Then
    13. g.DrawImage(My.Resources._1000Coins, New Rectangle(Point.Empty, bmp.Size))
    14. ElseIf TextBox1.Text = 4 Then
    15. g.DrawImage(My.Resources._0Coins, New Rectangle(Point.Empty, bmp.Size))
    16. ElseIf TextBox1.Text = 5 Then
    17. g.DrawImage(My.Resources._0Coins, New Rectangle(Point.Empty, bmp.Size))
    18. ElseIf TextBox1.Text = 6 Then
    19. g.DrawImage(My.Resources._0Coins, New Rectangle(Point.Empty, bmp.Size))
    20. ElseIf TextBox1.Text = 7 Then
    21. g.DrawImage(My.Resources._0Coins, New Rectangle(Point.Empty, bmp.Size))
    22. End If
    24. End Using
    25. pen = New Pen(New TextureBrush(bmp), 8) With {.StartCap = Drawing2D.LineCap.Round, .EndCap = Drawing2D.LineCap.Round}
    26. End Sub
    Mfg: Gather
    Private Nachrichten bezüglich VB-Fragen werden Ignoriert!

    Das kann nicht der Code von mir sein, das ist ja Strict Off geproggt.
    Option Strict On!

    Edit: Du könntest eine Methode Reset() proggen, wo das Array zurückgesetzt wird, und der TextureBrush mit einer zufälligen Bitmap initialisiert wird.

    Dieses Reset kannste von New() aufrufen, und ausserdem vom btReset_Click() - Eventhandler

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „ErfinderDesRades“ ()

    Torty H schrieb:

    RodFromGermany schrieb:

    eine Minute googlen:
    eigener Cursor

    VB.NET-Quellcode

    1. ' Erstellen eines neuen Stream
    2. Dim oStream As System.IO.Stream
    4. ' Mauszeiger laden
    5. oStream = Me.GetType().Assembly.GetManifestResourceStream( _
    6. "Projektname.Cursordatei.cur")
    8. ' Mauszeiger festlegen
    9. Me.Cursor = New Cursor(oStream)

    das hab ich auch schom gefunden -.- daher hab ich auch das mit dem memory oO

    VB.NET-Quellcode

    1. Der Objektverweis wurde nicht auf eine Objektinstanz festgelegt.


    "Projektname. << ???

    habs rausbekommen war ein falsches bzw zu farbige .cur

    VB.NET-Quellcode

    1. Me.Cursor = New Cursor("Pfadzumcursorblablub.cur")