Strona: [  << <   1   > >>  ]  z  1     
Autor Temat: jak ustawic warunek w procedurze if....else zeby jej instrukcje wykonywaly sie po nacisniecu przycisku??
anonim




Typ: Nie zarejestrowany
jak ustawic warunek w procedurze if....else zeby jej instrukcje wykonywaly sie po nacisniecu przycisku??

co mam wpisac w miejscu sprwadzania warunku w procedurze if...else zeby jej instrukcje wykonywaly sie po nacisnieciu przez uzytkownika przycisku

31-05-2004 23:37
  
andrey
Łódź



Typ: neutral
Postów: 295
Zarejestrowany: Mar 2003

Troche zawile to pytanie zostalo zadane ale sprobuje
- jeżeli masz na myśli jakąś procedure if...else i ma być wykonywana dopiero po naciśnieciu przycisku to zrób tak:
Private Sub Command1_Click()
' Jakieś inne instrukcje ...
If cos = cos then
  ' bla bla... jakieś instrukcje
Else
  ' bla bla bla ... jakies instrukcje
End If
End Sub

- lub jeżeli chodzi ci o to ze instukcje w if ... else wykonuja sie i sprawdzaja czy jeszcze uzytkownik nie nacisnal przycisku touzyj np wlasciwosci .Tag przycisku
If cos = cos then
      If Command1.Tag = cos Then ' jakies instrukcje
Else
' jakies instrukcje
End If


_____________________________________________
http://www.carbondesign.pl/ - rowery poziome, trójkołówce, handbike-i, tuning, akcesoria

31-05-2004 23:59
Pokaż profil andrey  Wyślij email do andrey   Odwiedź stronę andrey       3078613
JoFerrari




Typ: neutral
Postów: 75
Zarejestrowany: Apr 2003

Odpowiedz jest chyba prostasza niż się wydaje. Klikasz dwa razy na CommandButtona i wskakuje ci jego kod(zdażenie)

Zdaje mi się zę anonim zadający pytanie nie wie co to programowanie obiektowe. Bo po co IF na Click??
Wlasnie po to jest Click ;-)

01-06-2004 11:58
Pokaż profil JoFerrari  Wyślij email do JoFerrari   
andrey
Łódź



Typ: neutral
Postów: 295
Zarejestrowany: Mar 2003

Masz racje trzeba by bylo tworzyc nieskonczona petle ktora sprawdzalaby czy nie zaszly jakies zdarzenia dla kontrolki chyba w PureBasic-u tak jest ale nie dam glowy


_____________________________________________
http://www.carbondesign.pl/ - rowery poziome, trójkołówce, handbike-i, tuning, akcesoria

01-06-2004 15:10
Pokaż profil andrey  Wyślij email do andrey   Odwiedź stronę andrey       3078613
karolinavb




Typ: neutral
Postów: 468
Zarejestrowany: Jan 2003

Aninimie opisz dokładniej problem, bo być może uda się go rozwiązać poprzez deklarację i obługę zdarzeń w klasie....


_____________________________________________
Karolina

01-06-2004 20:45
Pokaż profil karolinavb  Wyślij email do karolinavb   
Piotr T




Typ: neutral
Postów: 176
Zarejestrowany: May 2004

Mnie to się wydaje że koledze chodzi o wykonywanie róznych instrukcji po naciśnięciu dowolnego przycisku w jednym zdarzeniu; jesli tak to jak wiadomo VB posiada możliwość stworzenia tablicy kontrolek w przestrzeni nazw np Command1(0),Command1(1)... etc

Private Sub Command1_Click(Index As Integer)
Select Case Index
            Case 0
                ' instrukcje
                K (Index)
            Case 1
                ' instrukcje
                K (Index)
            Case 2
                '  instrukcje
                K (Index)
            Case 3
                ' instrukcje
                K (Index)
        End Select
End Sub

Sub K(T As Integer)
Text1.Text = "Kliknięto w przycisk: " & T
End Sub


[Post edytowany dnia 03-06-2004 18:26 przez Piotr T]


_____________________________________________
Visual Basic.NET - Mercedes dla programistów

03-06-2004 18:22
Pokaż profil Piotr T  Wyślij email do Piotr T   Odwiedź stronę Piotr T  
Kris126




Typ: neutral
Postów: 32
Zarejestrowany: Mar 2004

'Mi się wydaje że Anonimowi chodzi o wykonanie dwóch różnych procedur po naciśnięciu tego samego CommandButtona w zależności od jego jakiejś właściwości np. caption
--------------------------------------------------
Form1_Load
  Commad1.Caption = "&Pokaż szczegóły"
End sub

Command1_Click()
If Command1.Caption = "&Pokaż szczegóły" Then
    Command1.Caption = "&Ukryj szczegóły"
    'Kod do wykonania
Else 
  Command1.Caption = "&Pokaż szczegóły"
    'Kod do wykonania
End if

04-06-2004 11:39
Pokaż profil Kris126  Wyślij email do Kris126        5026200
marcin_an
Forumowicz




Typ: neutral
Postów: 1265
Zarejestrowany: Mar 2004

Mnie się wydaje, że chodzi o coś takiego:


Private b as Boolean

Private Sub Command1_Click()
    b = True
End Sub

Private Sub JakasPetla()
    Do While 0 = 0
        If b Then
            zrobcostam
            b = False
        End if
        DoEvents
    Loop
End Sub


Tyle tylko, że takiej konstrukcji nie stosuje się często - głównie w programach, gdzie ważne jest, by procedury się nie zakłucały wzajemnie. Ciekawe, co anonim pisze .


_____________________________________________
Jedzonko dla Google'a:
Forum na temat Visual Basic, C, C++, Pascal, Programowanie, API, PHP, VBA, VB.NET, QBasic, VBScript, Komputery
Moja strona o wszystkim

23-06-2004 15:14
Pokaż profil marcin_an  Wyślij email do marcin_an   Odwiedź stronę marcin_an  
Knight Lore''FC




Typ: neutral
Postów: 240
Zarejestrowany: Jan 2003

no widzisz anonim... trzeba dokladniej opisywac problemy... teram mamy 4 MI SIE WYDAJE ZE CHODZILO O... wlasnie a o co Tobie chodzilo

24-06-2004 13:26
Pokaż profil Knight Lore  Wyślij email do Knight Lore        1065423
Wszystkich odpowiedzi: 8 :: Maxymalnie na stronę: 20
Strona: [  << <   1   > >>  ]  z  1