Visual Studios - nerven
Geizhals » Forum » Programmierung » Visual Studios - nerven (24 Beiträge, 94 Mal gelesen) Top-100 | Fresh-100
Du bist nicht angemeldet. [ Login/Registrieren ]
.......
Re(7): Visual Studios - nerven
16.11.2004, 14:24:25
in der ganzen Form sind nur 3 Funktionen drin!:
Option Explicit


Dim highestIndex As Integer
Dim aktivesGerät As Integer
Dim MessPosition As Integer

Private Sub Form_Load()
'Hier soll das Eingabefenster generiert werden. Wieder einmal dynamisch.

End Sub

Public Sub Form_Init(iX As Integer, zeileX As Integer, aktivesGerätX As Integer, MessPositionX As Integer)

    aktivesGerät = aktivesGerätX
    MessPosition = MessPositionX
    Dim tempZelle As String
    Dim b
    tempZelle = ExcelModul.WorkSheetREAD("E", zeileX, 0, "Geraete")
    b = Split(tempZelle)
    Label1(0).caption = b(0)
    
    Call Form_Load
    highestIndex = iX
    EingabeFenster.Visible = True
    Dim j As Integer
    For j = 1 To highestIndex - 1
        Load Label1(j)
        Load Text1(j)
        Label1(j).Top = Label1(0).Top + Label1(0).Height * (j) + 100 * (j)
        Label1(j).Left = Label1(0).Left
        Label1(j).Visible = True
        Label1(j).caption = b(j)
        Text1(j).Top = Label1(j).Top + 30
        Text1(j).Left = Text1(j).Left
        Text1(j).Visible = True
        EingabeFenster.Height = Text1(j).Top + 750
    Next j
End Sub

Private Sub cmd_OK_Click()
    
    Dim i As Integer
    For i = 0 To highestIndex - 1
        Dim spalte As String
        spalte = Chr(67 + i)
        Call ExcelModul.WorkSheetWRITE(Text1(i).Text, spalte, aktivesGerät + 1, 1)
    Next i
    EingabeFenster.Height = 1000
    Dim j As Integer
    For j = 1 To highestIndex - 1
        Unload Label1(j)
        Unload Text1(j)
    Next j
    EingabeFenster.Visible = False
End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    
    EingabeFenster.Height = 1000
    Dim j As Integer
    For j = 1 To highestIndex - 1
        Unload Label1(j)
        Unload Text1(j)
    Next j
End Sub


______________________________
***never touch a running system***
______________________________


Antworten PM Übersicht Chronologisch Zum Vorgänger
 
Melden nicht möglich
 

Dieses Forum ist eine frei zugängliche Diskussionsplattform.
Der Betreiber übernimmt keine Verantwortung für den Inhalt der Beiträge und behält sich das Recht vor, Beiträge mit rechtswidrigem oder anstößigem Inhalt zu löschen.
Datenschutzerklärung