Hallo ich bin ziemlich neu im forum könnte also sein das dass Thema hier falsch ist
ich habe ein kleines problemchen und finde die Ursache nicht
und zwar habe ich Button deklariert jedoch werden die mir nicht angezeigt obwohl die (show) Funktion aktiviert ist kann mir wer helfen?
es handelt sich um die Button
j1960
j1970
j1980
j1990
j2000
Hier mein code
ich habe ein kleines problemchen und finde die Ursache nicht
und zwar habe ich Button deklariert jedoch werden die mir nicht angezeigt obwohl die (show) Funktion aktiviert ist kann mir wer helfen?
es handelt sich um die Button
j1960
j1970
j1980
j1990
j2000
Hier mein code
VB.NET-Quellcode
- Imports System.IO
- Public Class CFA
- Dim x, y As Integer
- <System.Runtime.InteropServices.DllImport("user32.dll")> _
- Private Shared Function GetAsyncKeyState(ByVal vkey As System.Windows.Forms.Keys) As Short
- End Function
- Private Sub hkt_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hkt.Tick
- Dim HotKey As Boolean
- HotKey = GetAsyncKeyState(Keys.S)
- If HotKey = True Then
- tbs.PerformClick()
- End If
- End Sub
- Private Sub Ton(ByVal MeinText As String)
- Dim objvoice As System.Object
- objvoice = CreateObject("SAPI.spvoice")
- objvoice.speak(MeinText)
- End Sub
- 'Load
- Private Sub CFA_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
- ' Ton("C F A ... v1 Punkt 0")
- My.Computer.Audio.Play("F:\cfa\sounds\cfa.wav", AudioPlayMode.BackgroundLoop)
- j1960.Hide()
- j1970.Hide()
- j1980.Hide()
- j1990.Hide()
- j2000.Hide()
- j2010.Hide()
- x = Me.Width
- y = Me.Height
- Button_resize(sender, e)
- Dim desktopSize As Size
- desktopSize = System.Windows.Forms.SystemInformation.PrimaryMonitorSize
- Dim height As Integer = desktopSize.Height
- Dim width As Integer = desktopSize.Width
- test.Hide()
- End Sub
- ' Zusammenstellung
- Private Sub Button_resize(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Resize
- Dim x1, y1 As Integer
- x1 = Me.Width
- y1 = Me.Height
- If x > 0 Then
- '>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
- Dim LBX, TBX, TBSX, TBSW, TBSH, LBY, TBY, TBSY, KBX25, KBX26, KBX27, KBX28, KBX29, KBX30, KBY1, KBY2, KBY3, CTW, MTX, PNGBW, CTH, CTY, PNGBX, PNGBY, AW As Integer
- Dim KBH, KBW, KBX1, KBX2, KBX3, KBX4, KBX5, KBX6, KBX7, KBX8, KBX9, KBX10, KBX11, KBX12, FSKY0, FSKY1, FSKX1, FSKX0, FSKH, FSKW, SBY1, PYX, PYY, PYH, PYW As Integer
- Dim KBX13, KBX14, KBX15, KBX16, KBX17, KBX18, KBX19, KBX20, KBX21, KBX22, KBX23, KBX24, WBX, WBX2, WB3X, WBY, InfoY, WBY2, WBW2, WBH2, FSKX4, CTX, PNGBH As Integer
- Dim HXBB, HX0, HX1, HX2, HX3, HX4, HYBB, HY0, HY1, PNG4X, PNG4Y, PNG4W, PNG4H, KX, KY, KW, KH, MX, MY, MW, MH, MTY, MTH, MTW, MINY, MINX, AX, AY, AH As Integer
- Dim GRX0, GRX1, GRX2, GRXBB, GRKBX1, SBW, TBW, GRY0, GRY1, GRY2, GRY3, GRYBB, GRKBY1, SBH, TBH, J1960Y, J1970Y, J1980Y, J1990Y, J2000Y, J2010Y, J1960X As Integer
- Dim J1960H, J1970H, J1980H, J1990H, J2000H, J2010H, J1960W, J1970W, J1980W, J1990W, J2000W, J2010W, J1970X, J1980X, J1990X, J2000X, J2010X, MINH, MINW As Integer
- Dim SBX1, SBX2, SBX3, SBX4, SBX5, SBX6, SBX7, SBX8, SBX9, SBX10, SBX11, SBX12, WBH, WBW, BF2H, BF2W, BF2X, BF2Y, B7H, B7W, B8X, B8Y, B8H, B8W, B9X As Integer
- Dim B1X, B1Y, B1H, B1W, B2X, B2Y, B2H, B2W, B3X, B3Y, B3H, B3W, B4X, B4Y, B4H, B4W, B5X, B5Y, B5H, B5W, B7X, B7Y, B9Y, B9H, B9W, InfoX, InfoW, InfoH As Integer
- '>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
- j1960.Width = J1960W
- j1960.Height = J1960H
- j1960.Top = J1960Y
- j1960.Left = J1960X
- J1960W = 230 * x1 / x
- J1960H = 67 * y1 / y
- J1960X = 134 * x1 / x
- J1960Y = 236 * y1 / y
- j1970.Width = J1970W
- j1970.Height = J1970H
- j1970.Top = J1970Y
- j1970.Left = J1970X
- J1970W = 230 * x1 / x
- J1970H = 67 * y1 / y
- J1970X = 134 * x1 / x
- J1970Y = 314 * y1 / y
- j1980.Width = J1980W
- j1980.Height = J1980H
- j1980.Top = J1980Y
- j1980.Left = J1980X
- J1980W = 230 * x1 / x
- J1980H = 67 * y1 / y
- J1980X = 134 * x1 / x
- J1980Y = 387 * y1 / y
- j1990.Width = J1990W
- j1990.Height = J1990H
- j1990.Top = J1990Y
- j1990.Left = J1990X
- J1990W = 230 * x1 / x
- J1990H = 67 * y1 / y
- J1990X = 134 * x1 / x
- J1990Y = 460 * y1 / y
- j2000.Width = J2000W
- j2000.Height = J2000H
- j2000.Top = J2000Y
- j2000.Left = J2000X
- J2000W = 230 * x1 / x
- J2000H = 67 * y1 / y
- J2000X = 134 * x1 / x
- J2000Y = 533 * y1 / y
- j2010.Width = J2010W
- j2010.Height = J2010H
- j2010.Top = J2010Y
- j2010.Left = J2010X
- J2010W = 230 * x1 / x
- J2010H = 67 * y1 / y
- J2010X = 134 * x1 / x
- J2010Y = 606 * y1 / y
- End If
- End Sub
- ' Jahre
- Private Sub B7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B7.Click
- ' wb.Navigate("F:\cfa\vkf\Filme")
- Ton("Jahr gang")
- j1960.Show()
- j1970.Show()
- j1980.Show()
- j1990.Show()
- j2000.Show()
- j2010.Show()
- png4.Hide()
- drea.Hide()
- koch.Hide()
- sel.Hide()
- png1.Hide()
- png2.Hide()
- png3.Show()
- B4.Show()
- B1.Show()
- B7.Hide()
- B2.Show()
- B3.Show()
- B5.Show()
- B8.Show()
- B9.Show()
- bbs.Hide()
- bbk.Hide()
- bbsa.Hide()
- bbf.Hide()
- wb.Hide()
- fsk18.Hide()
- fsk16.Hide()
- fsk6.Hide()
- fsk0.Hide()
- fsk12.Hide()
- wb2.Hide()
- hb4.Hide()
- hb2.Hide()
- hb1.Hide()
- hb3.Hide()
- h.Hide()
- n.Hide()
- sb1.Hide()
- sb2.Hide()
- sb3.Hide()
- sb4.Hide()
- sb5.Hide()
- sb6.Hide()
- sb7.Hide()
- sb8.Hide()
- sb9.Hide()
- sb10.Hide()
- sb11.Hide()
- sb12.Hide()
- kb1.Hide()
- kb2.Hide()
- kb3.Hide()
- kb4.Hide()
- kb5.Hide()
- kb6.Hide()
- kb7.Hide()
- kb8.Hide()
- kb9.Hide()
- kb10.Hide()
- kb11.Hide()
- kb12.Hide()
- kb13.Hide()
- kb14.Hide()
- kb15.Hide()
- kb16.Hide()
- kb17.Hide()
- kb18.Hide()
- kb19.Hide()
- kb20.Hide()
- kb21.Hide()
- kb22.Hide()
- kb23.Hide()
- kb24.Hide()
- kb25.Hide()
- kb26.Hide()
- kb27.Hide()
- kb28.Hide()
- kb29.Hide()
- kb30.Hide()
- End Sub
- End Class
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „RedfieId“ ()