ColorConverter kann nicht von (NULL) konvertieren

  • VB.NET

Es gibt 11 Antworten in diesem Thema. Der letzte Beitrag () ist von Manawyrm.

    ColorConverter kann nicht von (NULL) konvertieren

    Code:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Imports System.IO
    2. Public Class Form1
    3. Dim inhalt As String
    4. Dim objDateiLeser As StreamReader
    5. Dim inhalt2 As String
    6. Dim objDateiLeser2 As StreamReader
    7. Dim Dimer As New ColorDialog
    8. Dim Dimer2 As New ColorDialog
    9. Dim ccv As New ColorConverter
    10. Dim c1 As Color = ccv.ConvertFromString(inhalt)
    11. Dim ccv2 As New ColorConverter
    12. Dim c2 As Color = ccv.ConvertFromString(inhalt2)
    14. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    15. Me.Close()
    16. End Sub
    17. Private Sub Timer_act_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer_act.Tick
    18. If TrackBar1.Value = 0 Then
    19. Media_HouseTime.settings.volume = 0
    20. media_Technobase.settings.volume = 0
    21. Media_Clubtime.settings.volume = 0
    22. Media_Trance.settings.volume = 0
    23. Media_Hardase.settings.volume = 0
    24. Media_core.settings.volume = 0
    25. End If
    26. If TrackBar1.Value = 10 Then
    27. Media_HouseTime.settings.volume = 10
    28. media_Technobase.settings.volume = 10
    29. Media_Clubtime.settings.volume = 10
    30. Media_Trance.settings.volume = 10
    31. Media_Hardase.settings.volume = 10
    32. Media_core.settings.volume = 10
    33. End If
    34. If TrackBar1.Value = 20 Then
    35. Media_HouseTime.settings.volume = 20
    36. media_Technobase.settings.volume = 20
    37. Media_Clubtime.settings.volume = 20
    38. Media_Trance.settings.volume = 20
    39. Media_Hardase.settings.volume = 20
    40. Media_core.settings.volume = 20
    41. End If
    42. If TrackBar1.Value = 30 Then
    43. Media_HouseTime.settings.volume = 30
    44. media_Technobase.settings.volume = 30
    45. Media_Clubtime.settings.volume = 30
    46. Media_Trance.settings.volume = 30
    47. Media_Hardase.settings.volume = 30
    48. Media_core.settings.volume = 30
    49. End If
    50. If TrackBar1.Value = 40 Then
    51. Media_HouseTime.settings.volume = 40
    52. media_Technobase.settings.volume = 40
    53. Media_Clubtime.settings.volume = 40
    54. Media_Trance.settings.volume = 40
    55. Media_Hardase.settings.volume = 40
    56. Media_core.settings.volume = 40
    57. End If
    58. If TrackBar1.Value = 50 Then
    59. Media_HouseTime.settings.volume = 50
    60. media_Technobase.settings.volume = 50
    61. Media_Clubtime.settings.volume = 50
    62. Media_Trance.settings.volume = 50
    63. Media_Hardase.settings.volume = 50
    64. Media_core.settings.volume = 50
    65. End If
    66. If TrackBar1.Value = 60 Then
    67. Media_HouseTime.settings.volume = 60
    68. media_Technobase.settings.volume = 60
    69. Media_Clubtime.settings.volume = 60
    70. Media_Hardase.settings.volume = 60
    71. Media_Trance.settings.volume = 60
    72. Media_core.settings.volume = 60
    73. End If
    74. If TrackBar1.Value = 80 Then
    75. Media_HouseTime.settings.volume = 80
    76. media_Technobase.settings.volume = 80
    77. Media_Clubtime.settings.volume = 80
    78. Media_Trance.settings.volume = 80
    79. Media_Hardase.settings.volume = 80
    80. Media_core.settings.volume = 80
    81. End If
    82. If TrackBar1.Value = 90 Then
    83. Media_HouseTime.settings.volume = 90
    84. media_Technobase.settings.volume = 90
    85. Media_Clubtime.settings.volume = 90
    86. Media_Trance.settings.volume = 90
    87. Media_Hardase.settings.volume = 90
    88. Media_core.settings.volume = 90
    89. End If
    90. If TrackBar1.Value = 100 Then
    91. Media_HouseTime.settings.volume = 100
    92. media_Technobase.settings.volume = 100
    93. Media_Clubtime.settings.volume = 100
    94. Media_Trance.settings.volume = 100
    95. Media_Hardase.settings.volume = 100
    96. Media_core.settings.volume = 100
    97. End If
    98. If TrackBar1.Value = 70 Then
    99. Media_HouseTime.settings.volume = 70
    100. media_Technobase.settings.volume = 70
    101. Media_Clubtime.settings.volume = 70
    102. Media_Trance.settings.volume = 70
    103. Media_Hardase.settings.volume = 70
    104. Media_core.settings.volume = 70
    105. End If
    106. Media_HouseTime.Refresh()
    107. If RadioButton_HouseTime.Checked = True Then
    108. Media_HouseTime.Ctlcontrols.play()
    109. Button_HouseTime.Hide()
    110. Label_Housetime.Show()
    111. Else
    112. Media_HouseTime.Ctlcontrols.pause()
    113. Button_HouseTime.Show()
    114. Label_Housetime.Hide()
    115. End If
    117. media_Technobase.Refresh()
    118. If RadioButton_Technobase.Checked = True Then
    119. media_Technobase.Ctlcontrols.play()
    120. Label1.Show()
    121. Button7.Hide()
    122. Else
    123. media_Technobase.Ctlcontrols.pause()
    124. Label1.Hide()
    125. Button7.Show()
    126. End If
    127. If RadioButton_Clubtime.Checked = True Then
    128. Media_Clubtime.Ctlcontrols.play()
    129. Button6.Hide()
    130. Label4.Show()
    131. Else
    132. Media_Clubtime.Ctlcontrols.pause()
    133. Button6.Show()
    134. Label4.Hide()
    135. End If
    136. If RadioButton_Trancebase.Checked = True Then
    137. Media_Trance.Ctlcontrols.play()
    138. Label5.Show()
    139. Button5.Hide()
    141. Else
    142. Media_Trance.Ctlcontrols.pause()
    143. Label5.Hide()
    144. Button5.Show()
    145. End If
    146. If RadioButton_hardase.Checked = True Then
    147. Media_Hardase.Ctlcontrols.play()
    148. Button4.Hide()
    149. Label2.Show()
    150. Else
    151. Media_Hardase.Ctlcontrols.pause()
    152. Button4.Show()
    153. Label2.Hide()
    154. End If
    155. If RadioButton_Coretime.Checked = True Then
    156. Media_core.Ctlcontrols.play()
    157. Button3.Hide()
    158. Label3.Show()
    159. Else
    160. Media_core.Ctlcontrols.pause()
    161. Button3.Show()
    162. Label3.Hide()
    163. End If
    164. End Sub
    165. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    166. Me.Top = My.Computer.Screen.WorkingArea.Height - Me.Height
    167. Me.Left = My.Computer.Screen.WorkingArea.Width - Me.Width
    168. Media_HouseTime.Ctlcontrols.pause()
    169. media_Technobase.Ctlcontrols.pause()
    170. Media_Clubtime.Ctlcontrols.pause()
    171. Media_Trance.Ctlcontrols.pause()
    172. Media_Hardase.Ctlcontrols.pause()
    173. Media_core.Ctlcontrols.pause()
    174. Timer_act.Start()
    175. Timer_Color_Mod.Start()
    176. objDateiLeser = New StreamReader("C:\Program Files (x86)\wE aRe oNe pLaYeR\set1.txt")
    177. inhalt = objDateiLeser.ReadToEnd()
    178. objDateiLeser.Close()
    179. objDateiLeser = Nothing
    180. objDateiLeser2 = New StreamReader("C:\Program Files (x86)\wE aRe oNe pLaYeR\set2.txt")
    181. inhalt2 = objDateiLeser2.ReadToEnd()
    182. objDateiLeser2.Close()
    183. objDateiLeser2 = Nothing
    184. Me.BackColor = c1
    185. End Sub
    186. Private Sub Button_HouseTime_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_HouseTime.Click
    187. RadioButton_HouseTime.Checked = True
    188. End Sub
    189. Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
    190. RadioButton_Technobase.Checked = True
    191. End Sub
    192. Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
    193. RadioButton_Clubtime.Checked = True
    194. End Sub
    195. Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
    196. RadioButton_Trancebase.Checked = True
    197. End Sub
    199. Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
    200. RadioButton_hardase.Checked = True
    201. End Sub
    203. Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
    204. RadioButton_Coretime.Checked = True
    205. End Sub
    206. End Class

    Fehler:
    Spoiler anzeigen
    System.InvalidOperationException wurde nicht behandelt.
    Message=Fehler beim Erstellen des Formulars. Weitere Informationen finden Sie in Exception.InnerException. Fehler: ColorConverter kann nicht von (NULL) konvertieren..
    Source=pLaYeR
    StackTrace:
    bei wE_aRe_oNe_pLaYeR.My.MyProject.MyForms.Create__Instance__[T](T Instance) in 17d14f5c-a337-4978-8281-53493378c1071.vb:Zeile 190.
    bei wE_aRe_oNe_pLaYeR.My.MyProject.MyForms.get_Form1()
    bei wE_aRe_oNe_pLaYeR.My.MyApplication.OnCreateMainForm() in C:\Users\einnamehalt\Documents\Visual Studio 2010\Projects\wE aRe oNe pLaYeR\wE aRe oNe pLaYeR\My Project\Application.Designer.vb:Zeile 35.
    bei Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase.OnRun()
    bei Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase.DoApplicationModel()
    bei Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase.Run(String[] commandLine)
    bei wE_aRe_oNe_pLaYeR.My.MyApplication.Main(String[] Args) in 17d14f5c-a337-4978-8281-53493378c1071.vb:Zeile 81.
    bei System.AppDomain._nExecuteAssembly(RuntimeAssembly assembly, String[] args)
    bei System.AppDomain.ExecuteAssembly(String assemblyFile, Evidence assemblySecurity, String[] args)
    bei Microsoft.VisualStudio.HostingProcess.HostProc.RunUsersAssembly()
    bei System.Threading.ThreadHelper.ThreadStart_Context(Object state)
    bei System.Threading.ExecutionContext.Run(ExecutionContext executionContext, ContextCallback callback, Object state, Boolean ignoreSyncCtx)
    bei System.Threading.ExecutionContext.Run(ExecutionContext executionContext, ContextCallback callback, Object state)
    bei System.Threading.ThreadHelper.ThreadStart()
    InnerException: System.NotSupportedException
    Message=ColorConverter kann nicht von (NULL) konvertieren.
    Source=System
    StackTrace:
    bei System.ComponentModel.TypeConverter.GetConvertFromException(Object value)
    bei System.ComponentModel.TypeConverter.ConvertFrom(ITypeDescriptorContext context, CultureInfo culture, Object value)
    bei System.Drawing.ColorConverter.ConvertFrom(ITypeDescriptorContext context, CultureInfo culture, Object value)
    bei System.ComponentModel.TypeConverter.ConvertFromString(String text)
    bei wE_aRe_oNe_pLaYeR.Form1..ctor() in C:\Users\einnamehalt\Documents\Visual Studio 2010\Projects\wE aRe oNe pLaYeR\wE aRe oNe pLaYeR\Form1.vb:Zeile 10.
    InnerException:

    Was soll ich tun? Hab keine ahnung was des Problem überhaupt ist es ist halt ein Problem da :D

    Danke - einnamehalt

    Edit by der_Kurt: *Titel geändert*

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

    ColorConverter kann nicht von (NULL) konvertieren

    Die Farbe die Du in der Zeile konvertieren möchtest in der der Fehler auftritt ist Null, Nothing, einfach nicht vorhanden.
    Edit: (Müsste Zeile 10 sein, wobei Inhalt dann leer (Nothing) ist.)

    Das nächste mal, gib die Zeile mit welche Markiert wird.
    Zudem ist der Titel vom Thema wirklich schlecht gewählt.

    Schau dir mal meinen Edit an.
    Setz mal in Zeile 10 einen Haltepunkt und fahre mit der Maus über Inhalt.
    Inhalt ist in der Zeile 10 einfach ein leerer String, diesen kannst du nicht konvertieren.

    Die zuweisung von c1 und c2 darf erst nach Load erfolgen.

    VB.NET-Quellcode

    1. Dim c1 As Color
    2. Dim c1 As Color
    4. Load()
    5. Read...
    6. c1 = color.convert(inhalt)
    7. End Load

    Ohh hast recht Zeile 10 :D
    neuer code:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Imports System.IO
    2. Public Class Form1
    3. Dim inhalt As String
    4. Dim objDateiLeser As StreamReader
    5. Dim inhalt2 As String
    6. Dim objDateiLeser2 As StreamReader
    7. Dim Dimer As New ColorDialog
    8. Dim Dimer2 As New ColorDialog
    9. Dim ccv As New ColorConverter
    10. Dim c1 As Color
    11. Dim ccv2 As New ColorConverter
    12. Dim c2 As Color
    14. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    15. Me.Close()
    16. End Sub
    17. Private Sub Timer_act_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer_act.Tick
    18. If TrackBar1.Value = 0 Then
    19. Media_HouseTime.settings.volume = 0
    20. media_Technobase.settings.volume = 0
    21. Media_Clubtime.settings.volume = 0
    22. Media_Trance.settings.volume = 0
    23. Media_Hardase.settings.volume = 0
    24. Media_core.settings.volume = 0
    25. End If
    26. If TrackBar1.Value = 10 Then
    27. Media_HouseTime.settings.volume = 10
    28. media_Technobase.settings.volume = 10
    29. Media_Clubtime.settings.volume = 10
    30. Media_Trance.settings.volume = 10
    31. Media_Hardase.settings.volume = 10
    32. Media_core.settings.volume = 10
    33. End If
    34. If TrackBar1.Value = 20 Then
    35. Media_HouseTime.settings.volume = 20
    36. media_Technobase.settings.volume = 20
    37. Media_Clubtime.settings.volume = 20
    38. Media_Trance.settings.volume = 20
    39. Media_Hardase.settings.volume = 20
    40. Media_core.settings.volume = 20
    41. End If
    42. If TrackBar1.Value = 30 Then
    43. Media_HouseTime.settings.volume = 30
    44. media_Technobase.settings.volume = 30
    45. Media_Clubtime.settings.volume = 30
    46. Media_Trance.settings.volume = 30
    47. Media_Hardase.settings.volume = 30
    48. Media_core.settings.volume = 30
    49. End If
    50. If TrackBar1.Value = 40 Then
    51. Media_HouseTime.settings.volume = 40
    52. media_Technobase.settings.volume = 40
    53. Media_Clubtime.settings.volume = 40
    54. Media_Trance.settings.volume = 40
    55. Media_Hardase.settings.volume = 40
    56. Media_core.settings.volume = 40
    57. End If
    58. If TrackBar1.Value = 50 Then
    59. Media_HouseTime.settings.volume = 50
    60. media_Technobase.settings.volume = 50
    61. Media_Clubtime.settings.volume = 50
    62. Media_Trance.settings.volume = 50
    63. Media_Hardase.settings.volume = 50
    64. Media_core.settings.volume = 50
    65. End If
    66. If TrackBar1.Value = 60 Then
    67. Media_HouseTime.settings.volume = 60
    68. media_Technobase.settings.volume = 60
    69. Media_Clubtime.settings.volume = 60
    70. Media_Hardase.settings.volume = 60
    71. Media_Trance.settings.volume = 60
    72. Media_core.settings.volume = 60
    73. End If
    74. If TrackBar1.Value = 80 Then
    75. Media_HouseTime.settings.volume = 80
    76. media_Technobase.settings.volume = 80
    77. Media_Clubtime.settings.volume = 80
    78. Media_Trance.settings.volume = 80
    79. Media_Hardase.settings.volume = 80
    80. Media_core.settings.volume = 80
    81. End If
    82. If TrackBar1.Value = 90 Then
    83. Media_HouseTime.settings.volume = 90
    84. media_Technobase.settings.volume = 90
    85. Media_Clubtime.settings.volume = 90
    86. Media_Trance.settings.volume = 90
    87. Media_Hardase.settings.volume = 90
    88. Media_core.settings.volume = 90
    89. End If
    90. If TrackBar1.Value = 100 Then
    91. Media_HouseTime.settings.volume = 100
    92. media_Technobase.settings.volume = 100
    93. Media_Clubtime.settings.volume = 100
    94. Media_Trance.settings.volume = 100
    95. Media_Hardase.settings.volume = 100
    96. Media_core.settings.volume = 100
    97. End If
    98. If TrackBar1.Value = 70 Then
    99. Media_HouseTime.settings.volume = 70
    100. media_Technobase.settings.volume = 70
    101. Media_Clubtime.settings.volume = 70
    102. Media_Trance.settings.volume = 70
    103. Media_Hardase.settings.volume = 70
    104. Media_core.settings.volume = 70
    105. End If
    106. Media_HouseTime.Refresh()
    107. If RadioButton_HouseTime.Checked = True Then
    108. Media_HouseTime.Ctlcontrols.play()
    109. Button_HouseTime.Hide()
    110. Label_Housetime.Show()
    111. Else
    112. Media_HouseTime.Ctlcontrols.pause()
    113. Button_HouseTime.Show()
    114. Label_Housetime.Hide()
    115. End If
    117. media_Technobase.Refresh()
    118. If RadioButton_Technobase.Checked = True Then
    119. media_Technobase.Ctlcontrols.play()
    120. Label1.Show()
    121. Button7.Hide()
    122. Else
    123. media_Technobase.Ctlcontrols.pause()
    124. Label1.Hide()
    125. Button7.Show()
    126. End If
    127. If RadioButton_Clubtime.Checked = True Then
    128. Media_Clubtime.Ctlcontrols.play()
    129. Button6.Hide()
    130. Label4.Show()
    131. Else
    132. Media_Clubtime.Ctlcontrols.pause()
    133. Button6.Show()
    134. Label4.Hide()
    135. End If
    136. If RadioButton_Trancebase.Checked = True Then
    137. Media_Trance.Ctlcontrols.play()
    138. Label5.Show()
    139. Button5.Hide()
    141. Else
    142. Media_Trance.Ctlcontrols.pause()
    143. Label5.Hide()
    144. Button5.Show()
    145. End If
    146. If RadioButton_hardase.Checked = True Then
    147. Media_Hardase.Ctlcontrols.play()
    148. Button4.Hide()
    149. Label2.Show()
    150. Else
    151. Media_Hardase.Ctlcontrols.pause()
    152. Button4.Show()
    153. Label2.Hide()
    154. End If
    155. If RadioButton_Coretime.Checked = True Then
    156. Media_core.Ctlcontrols.play()
    157. Button3.Hide()
    158. Label3.Show()
    159. Else
    160. Media_core.Ctlcontrols.pause()
    161. Button3.Show()
    162. Label3.Hide()
    163. End If
    164. End Sub
    165. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    166. Me.Top = My.Computer.Screen.WorkingArea.Height - Me.Height
    167. Me.Left = My.Computer.Screen.WorkingArea.Width - Me.Width
    168. Media_HouseTime.Ctlcontrols.pause()
    169. media_Technobase.Ctlcontrols.pause()
    170. Media_Clubtime.Ctlcontrols.pause()
    171. Media_Trance.Ctlcontrols.pause()
    172. Media_Hardase.Ctlcontrols.pause()
    173. Media_core.Ctlcontrols.pause()
    174. Timer_act.Start()
    175. Timer_Color_Mod.Start()
    176. objDateiLeser = New StreamReader("C:\Program Files (x86)\wE aRe oNe pLaYeR\set1.txt")
    177. inhalt = objDateiLeser.ReadToEnd()
    178. objDateiLeser.Close()
    179. objDateiLeser = Nothing
    180. objDateiLeser2 = New StreamReader("C:\Program Files (x86)\wE aRe oNe pLaYeR\set2.txt")
    181. inhalt2 = objDateiLeser2.ReadToEnd()
    182. objDateiLeser2.Close()
    183. objDateiLeser2 = Nothing
    184. c1 = ccv.ConvertToString(inhalt)
    185. c2 = c1.ConvertFromString(inhalt2)
    186. Me.BackColor = c1
    187. End Sub
    188. Private Sub Button_HouseTime_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_HouseTime.Click
    189. RadioButton_HouseTime.Checked = True
    190. End Sub
    191. Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
    192. RadioButton_Technobase.Checked = True
    193. End Sub
    194. Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
    195. RadioButton_Clubtime.Checked = True
    196. End Sub
    197. Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
    198. RadioButton_Trancebase.Checked = True
    199. End Sub
    201. Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
    202. RadioButton_hardase.Checked = True
    203. End Sub
    205. Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
    206. RadioButton_Coretime.Checked = True
    207. End Sub
    208. End Class


    meintest du so??

    dankee :D

    Wobei der ganze Mist mit dem Timern echt Mist ist.

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Private Sub Timer_act_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer_act.Tick
    2. If TrackBar1.Value = 0 Then
    3. Media_HouseTime.settings.volume = 0
    4. media_Technobase.settings.volume = 0
    5. Media_Clubtime.settings.volume = 0
    6. Media_Trance.settings.volume = 0
    7. Media_Hardase.settings.volume = 0
    8. Media_core.settings.volume = 0
    9. End If
    10. If TrackBar1.Value = 10 Then
    11. Media_HouseTime.settings.volume = 10
    12. media_Technobase.settings.volume = 10
    13. Media_Clubtime.settings.volume = 10
    14. Media_Trance.settings.volume = 10
    15. Media_Hardase.settings.volume = 10
    16. Media_core.settings.volume = 10
    17. End If
    18. If TrackBar1.Value = 20 Then
    19. Media_HouseTime.settings.volume = 20
    20. media_Technobase.settings.volume = 20
    21. Media_Clubtime.settings.volume = 20
    22. Media_Trance.settings.volume = 20
    23. Media_Hardase.settings.volume = 20
    24. Media_core.settings.volume = 20
    25. End If
    26. If TrackBar1.Value = 30 Then
    27. Media_HouseTime.settings.volume = 30
    28. media_Technobase.settings.volume = 30
    29. Media_Clubtime.settings.volume = 30
    30. Media_Trance.settings.volume = 30
    31. Media_Hardase.settings.volume = 30
    32. Media_core.settings.volume = 30
    33. End If
    34. If TrackBar1.Value = 40 Then
    35. Media_HouseTime.settings.volume = 40
    36. media_Technobase.settings.volume = 40
    37. Media_Clubtime.settings.volume = 40
    38. Media_Trance.settings.volume = 40
    39. Media_Hardase.settings.volume = 40
    40. Media_core.settings.volume = 40
    41. End If
    42. If TrackBar1.Value = 50 Then
    43. Media_HouseTime.settings.volume = 50
    44. media_Technobase.settings.volume = 50
    45. Media_Clubtime.settings.volume = 50
    46. Media_Trance.settings.volume = 50
    47. Media_Hardase.settings.volume = 50
    48. Media_core.settings.volume = 50
    49. End If
    50. If TrackBar1.Value = 60 Then
    51. Media_HouseTime.settings.volume = 60
    52. media_Technobase.settings.volume = 60
    53. Media_Clubtime.settings.volume = 60
    54. Media_Hardase.settings.volume = 60
    55. Media_Trance.settings.volume = 60
    56. Media_core.settings.volume = 60
    57. End If
    58. If TrackBar1.Value = 80 Then
    59. Media_HouseTime.settings.volume = 80
    60. media_Technobase.settings.volume = 80
    61. Media_Clubtime.settings.volume = 80
    62. Media_Trance.settings.volume = 80
    63. Media_Hardase.settings.volume = 80
    64. Media_core.settings.volume = 80
    65. End If
    66. If TrackBar1.Value = 90 Then
    67. Media_HouseTime.settings.volume = 90
    68. media_Technobase.settings.volume = 90
    69. Media_Clubtime.settings.volume = 90
    70. Media_Trance.settings.volume = 90
    71. Media_Hardase.settings.volume = 90
    72. Media_core.settings.volume = 90
    73. End If
    74. If TrackBar1.Value = 100 Then
    75. Media_HouseTime.settings.volume = 100
    76. media_Technobase.settings.volume = 100
    77. Media_Clubtime.settings.volume = 100
    78. Media_Trance.settings.volume = 100
    79. Media_Hardase.settings.volume = 100
    80. Media_core.settings.volume = 100
    81. End If
    82. If TrackBar1.Value = 70 Then
    83. Media_HouseTime.settings.volume = 70
    84. media_Technobase.settings.volume = 70
    85. Media_Clubtime.settings.volume = 70
    86. Media_Trance.settings.volume = 70
    87. Media_Hardase.settings.volume = 70
    88. Media_core.settings.volume = 70
    89. End If

    Eine Art Lautstärke Regler?
    Etwas kurzer würde es so gehen (Regelbar in 100 Schritten).
    Trackbar Maximum auf 100 stellen:

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Private Sub TrackBar1_Scroll(sender As System.Object, e As System.EventArgs) Handles TrackBar1.Scroll
    2. Media_HouseTime.settings.volume = TrackBar1.Value
    3. media_Technobase.settings.volume = TrackBar1.Value
    4. Media_Clubtime.settings.volume = TrackBar1.Value
    5. Media_Trance.settings.volume = TrackBar1.Value
    6. Media_Hardase.settings.volume = TrackBar1.Value
    7. Media_core.settings.volume = TrackBar1.Value
    8. End Sub

    Danke :))

    abbber: des mit dem nachm load un so geht nicht :O

    Fehler 2 "ConvertFromString" ist kein Member von "System.Drawing.Color". C:\Users\einnamehalt\Documents\Visual Studio 2010\Projects\wE aRe oNe pLaYeR\wE aRe oNe pLaYeR\Form1.vb 47 14 wE aRe oNe pLaYeR

    Bitte um hilfe :OOO

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

    wie ist den ConvertFromString deklariert?
    Du musst da eine Funktion aufrufen, die ein Color zurückgibt:

    VB.NET-Quellcode

    1. Private Function ConvertFromString(bla As String) As System.Drawing.Color
    2. Return Color.Red
    3. End Function
    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!

    einnamehalt schrieb:

    abbber: des mit dem nachm load un so geht nicht :O

    5 Regeln für sinnvolle Fragen

    vlt. noch eine sechste: unwahrscheinlich, dass man im Forum einen CodeFehler findet, der sich iwo in 200 geposteten Zeilen Code versteckt.
    Ich mach mir jdfs. nichtmal die Mühe, da durchzusteigen.

    Eine sehr höfliche, nette Artikulation, die du an den Tag legst.

    Pass auf: Das kann ich auch.

    Ar***l***** wie dich braucht hier keiner. Wirklich nicht.
    Tschüss. Ein großer Teil der Mitglieder opfern hier ihre Zeit um Neueinsteigern zu helfen.
    Wenn du meinst, dass in dieser Form annehmen zu müssen, kann ich nur sagen, dass die Moderatoren dieses Forums garantiert meiner Meinung sind.

Facebook
Telefonspende