• Najnowsze pytania
  • Bez odpowiedzi
  • Zadaj pytanie
  • Kategorie
  • Tagi
  • Zdobyte punkty
  • Ekipa ninja
  • IRC
  • FAQ
  • Regulamin
  • Książki warte uwagi

Automatyczne otwieranie okna i podwójne kliknięcia VISUAL BASIC

VPS Starter Arubacloud
+1 głos
254 wizyt
pytanie zadane 2 lipca 2020 w Visual Basic przez Laurencjusz Kocik Użytkownik (540 p.)
Witam,

Mam pytanie: Jaki kod wpisać kiedy chcę, aby wcześniej nie utworzone okno (Form) samodzielnie się utworzyło i znalazło się tam np. 5 checkbox'ów. W VISUAL BASIC.

Z góry dziękuję
komentarz 2 lipca 2020 przez VBService Ekspert (251,210 p.)
Z którego visual basic'ka korzystasz, jak dobrze pamiętam, popraw Mnie, ostatni przed .Net był chyba w wersji 6.0. Visual Basic 6.0 lub vb.net?
1
komentarz 2 lipca 2020 przez Laurencjusz Kocik Użytkownik (540 p.)

Nie wiem, ale jest coś takiego:

komentarz 2 lipca 2020 przez VBService Ekspert (251,210 p.)
edycja 2 lipca 2020 przez VBService

Na początek polecam darmowy pdf.

Visual Basic® .NET Notes for Professionals book

Dokumentacja on-line:  Visual Basic.NET

komentarz 2 lipca 2020 przez Laurencjusz Kocik Użytkownik (540 p.)

Dzięki. Artykuł? laugh

1 odpowiedź

0 głosów
odpowiedź 5 lipca 2020 przez VBService Ekspert (251,210 p.)
edycja 8 lipca 2020 przez VBService
Public Class Form1
    Private oForm As Form

    ' Przycisk na Form1
    Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
        Try
            oForm.Visible = True
        Catch ex As Exception            
            initializeForm()
        Finally
            oForm.Visible = True
        End Try
    End Sub

    Private Sub initializeForm()
        oForm = New Form
        ' Przykładowe ustawienia okna
        oForm.Text = "Form2" ' Dowlny tekst - caption okna
        oForm.Size = New Size(200, 200)
        oForm.MaximumSize = New Size(200, 200)
        oForm.MinimumSize = New Size(200, 200)
        oForm.Owner = Me
        oForm.FormBorderStyle = FormBorderStyle.FixedDialog
        oForm.ControlBox = False
        oForm.AutoSize = False
        AddHandler oForm.Activated, AddressOf Form2_Activated

        ' Dodawanie checkbox'ów
        Dim locationOffset As Integer = 20
        Dim width As Integer = 20
        Dim checkboxName As String() = New String() {"Pytanie1", "Pytanie2", "Pytanie3", "Pytanie4", "Pytanie5"}
        Dim checkboxText(5) As String

        checkboxText(0) = "Tresć pytanie 1"
        checkboxText(1) = "Tresć pytanie 2"
        checkboxText(2) = "Tresć pytanie 3"
        checkboxText(3) = "Tresć pytanie 4"
        checkboxText(4) = "Tresć pytanie 5"

        For index As Integer = 0 To checkboxName.GetUpperBound(0)
            Dim checkBox = New CheckBox
            checkBox.Location = New Point(20, locationOffset)
            checkBox.Size = New Size(100, width)
            checkBox.Name = checkboxName(index)
            checkBox.Text = checkboxText(index)
            oForm.Controls.Add(checkBox)
            locationOffset = locationOffset + width
        Next

        Dim button = New Button
        button.Location = New Point(20, locationOffset)
        button.Size = New Size(100, 20)
        button.Text = "Wprowadź"
        AddHandler button.Click, AddressOf Form2_Button1_Click

        oForm.Controls.Add(button)
    End Sub

    ' Przycisk na utworzonej Form'ie
    Private Sub Form2_Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

        ' Kod do sprawdzenia stanu checkBox'ów z utworzonej Form'atki

        Dim msgboxStyle As MsgBoxStyle = msgboxStyle.Information + msgboxStyle.OkOnly + msgboxStyle.SystemModal
        For Each control In oForm.Controls
            If (TypeOf (control) Is CheckBox) Then
                MsgBox(control.Name & " = " & control.checked, msgboxStyle)

                If (control.Name = "Pytanie1" And control.checked = True) Then
                    MsgBox("Pytanie1 - zaznaczony" & vbCrLf & control.Text, msgboxStyle)
                End If
            End If
        Next

        ' Koniec sprawdzenia stanu 

        oForm.Visible = False
    End Sub

    ' Nowa Form'atka zawsze pokazuje się nad Form1
    Private Sub Form2_Activated()
        oForm.Location = Me.Location
    End Sub
End Class

Podobne pytania

+1 głos
1 odpowiedź 173 wizyt
pytanie zadane 3 września 2020 w Visual Basic przez Laurencjusz Kocik Użytkownik (540 p.)
+1 głos
1 odpowiedź 118 wizyt
0 głosów
1 odpowiedź 124 wizyt

92,452 zapytań

141,262 odpowiedzi

319,085 komentarzy

61,854 pasjonatów

Motyw:

Akcja Pajacyk

Pajacyk od wielu lat dożywia dzieci. Pomóż klikając w zielony brzuszek na stronie. Dziękujemy! ♡

Oto polecana książka warta uwagi.
Pełną listę książek znajdziesz tutaj.

Akademia Sekuraka

Akademia Sekuraka 2024 zapewnia dostęp do minimum 15 szkoleń online z bezpieczeństwa IT oraz dostęp także do materiałów z edycji Sekurak Academy z roku 2023!

Przy zakupie możecie skorzystać z kodu: pasja-akademia - użyjcie go w koszyku, a uzyskacie rabat -30% na bilety w wersji "Standard"! Więcej informacji na temat akademii 2024 znajdziecie tutaj. Dziękujemy ekipie Sekuraka za taką fajną zniżkę dla wszystkich Pasjonatów!

Akademia Sekuraka

Niedawno wystartował dodruk tej świetnej, rozchwytywanej książki (około 940 stron). Mamy dla Was kod: pasja (wpiszcie go w koszyku), dzięki któremu otrzymujemy 10% zniżki - dziękujemy zaprzyjaźnionej ekipie Sekuraka za taki bonus dla Pasjonatów! Książka to pierwszy tom z serii o ITsec, który łagodnie wprowadzi w świat bezpieczeństwa IT każdą osobę - warto, polecamy!

...