Function Gia Energopoiisi / Apenergopoiisi Menu

Συζητήσεις για τις γλώσσες του dot Net και για του Visual Studio της Microsoft

Συντονιστές: WebDev Moderators, Super-Moderators

Απάντηση
Άβαταρ μέλους
Valerov
Δημοσιεύσεις: 231
Εγγραφή: 13 Ιαν 2003 09:36
Τοποθεσία: Πάτρα

Function Gia Energopoiisi / Apenergopoiisi Menu

Δημοσίευση από Valerov » 06 Ιουν 2003 13:32

Hello paidia. Prospatho edo kai 5 meres na ftiakso mia Function gia na mporo na energopoio kai na apenergopoio Menu mias efarmogis xoris na xreiazetai kathe fora na grafo Mnu1.enabled =false ... Eftiaksa mia gia tin idia periptosi alla gia Toolbar Buttons kai douleuei mia xara. Den mporo na omos na to kano kai tora me ta menu giati sta buttons xrisimopoiisa tin idiotita Key tou kathe koumpiou eno ta menu exoun index to opoio einai Integer. Telos panton, mipos mporei kapoios na mou dosei ena Tip etsi oste na prospathiso basizomenos kapou na tin ftiakso auti tin kolo Function?Thanx paidia kai sorry gia to megethos tou minimatos.
:: Always Dive With A Partner ::

LightForce
WebDev Moderator
Δημοσιεύσεις: 3812
Εγγραφή: 13 Απρ 2003 23:49

Function Gia Energopoiisi / Apenergopoiisi Menu

Δημοσίευση από LightForce » 06 Ιουν 2003 19:40

οκ για να το δουμε
στο project χρησιμοποιω 3 μενου mnu1,mnu2,mnu3
χρησιμποποιω την συναρτηση on/off η οποια παιρνει 2 παραμετρους (integer,boolean)
την καλω απο οπουδηποτε

παραδειγμα για να ενεργοποιησω το μενου 3
onoff 3, True

για να απενεργοποιησω το 2
onoff 2, False

Κώδικας: Επιλογή όλων

Private Function onoff(num As Integer, w As Boolean)
If w = True Then

Select Case num
Case 1
mnu1.Enabled = True
Case 2
mnu2.Enabled = True
Case 3
mnu3.Enabled = True
End Select

Else
Select Case num

Case 1
mnu1.Enabled = False
Case 2
mnu2.Enabled = False
Case 3
mnu3.Enabled = False

End Select
End If


End Function

nice ?
Author LightForce
http://www.geocities.com/kouvaraki

Άβαταρ μέλους
Valerov
Δημοσιεύσεις: 231
Εγγραφή: 13 Ιαν 2003 09:36
Τοποθεσία: Πάτρα

Function Gia Energopoiisi / Apenergopoiisi Menu

Δημοσίευση από Valerov » 06 Ιουν 2003 22:55

LightForce kali i skepsi sou, tin eixa dokimasei ki ego. Omos epeidi me auti tin sinartisi mporo na epireaso mono ena menu tin aperipsa. Stin sinartisi me ta Toolbar buttons auto pou ekana gia na mporo na epembaino se osa buttons thelo me ena kalesma tis sinartisis, xrisimopoiisa mia parametro String stin opoia egrafa ta Key ton button pou ithela na allakso. Rikse mia matia:


Sub EnableTBarButtons(ByVal bEnable As Boolean, Optional ByVal strButtons As String = "")

Dim OP As Integer
Dim strTemp As String
Dim BTN As Button

If strButtons = "" Then
For Each BTN In MdiFrm.Toolbar1.Buttons
BTN.Enabled = bEnable
Next BTN
Else
OP = InStr(strButtons, ",")
Do While OP <> 0
strTemp = Left(strButtons, OP - 1)
Set BTN = MdiFrm.Toolbar1.Buttons(strTemp)
BTN.Enabled = bEnable
strButtons = Mid(strButtons, OP - 1)
OP = InStr(strButtons, ",")
Loop
Set BTN = MdiFrm.Toolbar1.Buttons(strButtons)
BTN.Enabled = bEnable
End If

Set BTN = Nothing
End Sub


Exo ena toolbar me 5 buttons opou to proto exei Key="one", to deutero "two" k.o.k.

Call EnableTBarButtons(False,"one,two,five")

Ta buttons me key one,two kai five tha apenergopoiithoun.
Kati tetoio thelo na kano kai me ta menu alla exo mperdeutei poli. Exo spasei to kefali mou alla den exo kataferei tipota akoma!
Se euxaristo pantos pou asxolithikes :P
:: Always Dive With A Partner ::

LightForce
WebDev Moderator
Δημοσιεύσεις: 3812
Εγγραφή: 13 Απρ 2003 23:49

Function Gia Energopoiisi / Apenergopoiisi Menu

Δημοσίευση από LightForce » 07 Ιουν 2003 01:45

Βαλε οσα μενου θες και δινε τιμη καθε φορα on/off σε ολα 0,1,1,0,1,0,1
πολυ απλος κωδικας
πως σου φαινεται
? :roll:

Κώδικας: Επιλογή όλων

Private Sub Command1_Click&#40;&#41;
onoff 1, 0, 1
End Sub



Private Function onoff&#40;a, b, c As Integer&#41;
If a = 1 Then
mnu1.Enabled = True
Else
mnu1.Enabled = False
End If
If b = 1 Then
mnu2.Enabled = True
Else
mnu2.Enabled = False
End If
If c = 1 Then
mnu3.Enabled = True
Else
mnu3.Enabled = False
End If

End Function
8)

Άβαταρ μέλους
Valerov
Δημοσιεύσεις: 231
Εγγραφή: 13 Ιαν 2003 09:36
Τοποθεσία: Πάτρα

Function Gia Energopoiisi / Apenergopoiisi Menu

Δημοσίευση από Valerov » 07 Ιουν 2003 12:12

Auti i function pou egrapses douleuei gia tosa menu osa kai ta orismata tis function sosta?diladi an i sinartisi exei tria orismata a,b,c tote douleuei gia 3 menu? Telos panton mou fainetai pos mia tetoia tha xrisimopoio giati den antexo allo! Se euxristo :lol:
:: Always Dive With A Partner ::

Άβαταρ μέλους
agrippas
Script Master
Δημοσιεύσεις: 494
Εγγραφή: 18 Ιούλ 2002 14:52
Τοποθεσία: Υπερπέραν
Επικοινωνία:

Function Gia Energopoiisi / Apenergopoiisi Menu

Δημοσίευση από agrippas » 07 Ιουν 2003 20:35

Κώδικας: Επιλογή όλων

Private Sub Command1_Click&#40;&#41;
       MenuDeActivator Me.menu1.Item&#40;0&#41;
End Sub

'και κάπου βάλε...

Public Sub MenuActivator&#40;ByRef MenuItem As Menu&#41;
       MenuItem.Enabled = True
End Sub

Public Sub MenuDeActivator&#40;ByRef MenuItem As Menu&#41;
       MenuItem.Enabled = False
End Sub
Όπου φυσικά έδωσα το 0 ως index στο menu1 κλπ....

Τώρα παίξε! :D :pint: :pint:

Άβαταρ μέλους
Valerov
Δημοσιεύσεις: 231
Εγγραφή: 13 Ιαν 2003 09:36
Τοποθεσία: Πάτρα

Function Gia Energopoiisi / Apenergopoiisi Menu

Δημοσίευση από Valerov » 07 Ιουν 2003 21:00

Thanx paidia gia tin boitheia. Otan tin bro tin Function pou akribos thelo tha tin kano post. Kai pali thanx LightForce kai agrippa
:: Always Dive With A Partner ::

Απάντηση

Επιστροφή στο “dot Net και Visual Studio”

Μέλη σε σύνδεση

Μέλη σε αυτήν τη Δ. Συζήτηση: Δεν υπάρχουν εγγεγραμμένα μέλη και 1 επισκέπτης