Vb & metavlites

[Dvs]

kalo xeimona se olous <BR>loipon: <BR> Pos mporo na dimiourgiso mia metavliti pou na pernei kapia timi kai na mporo na tin xrisimopoiiso se ola ta forms(enn. xoris na xanei tin timi tis)? [Tin ekana public stin startup form alla panta ginetai null stis ipoloipes]

[Infrared]

Θα κάνεις Add Project - New module και εκεί μέσα θα κάνεις Public τις μεταβλητές που θέλεις οι οποίες 'φαίνονται' σε όλο το πρόγραμμα. Το module αυτό καλό είναι να το ονομάσεις mDeclares.bas. Εχε βέβαια υπόψιν σου ότι το πρόγραμμά σου πρέπει να το ξεκινάς από Sub Main και όχι από FORM. Αν έχεις άλλες απορίες κάνε Post.

[Dvs]

I mDeclares.bas prepei na exei mono tis public diloseis i mporei na periexei kai diafores routines?<P> Giati na xekinao me module kai oxi apo ti form?

[pW]

Den tha ksekinas apo form gia na sou fortonei thn metablith prota!!!!

[Dvs]

ama to valo sto declaration tis form?

[Critter]

Prepei na grapseis<P>option explicit <BR>dim ......as....<P>An katalava kala ayto zitas.<BR>Ayto den tha to grapseis se epipedo formas...<BR>Alla sto geniko perivalon.<BR>Elpizo na katanohsa ti enoeis kai na bohthisa.

[Infrared]

Να ένα παράδειγμα:<P>Attribute VB_Name = "mDeclare"<BR>'<BR>' ********************************************************<BR>' **** DECLARATION OF PUBLIC VARIABLES ****<BR>' ********************************************************<P>Public sLowChargeStart As String<BR>Public sLowChargeEnd As String<P>Public Const WM_RBUTTONUP = &H205<BR>Public Const WM_LBUTTONDBLCLK = &H203<BR>Public Const WM_LBUTTONDOWN = &H201<P>Public Type RASCONNSTATUS<BR> dwSize As Long<BR> RASCONNSTATE As Long<BR> dwError As Long<BR> szDeviceType(RAS_MaxDeviceType) As Byte<BR> szDeviceName(RAS_MaxDeviceName) As Byte<BR>End Type<P>Public Declare Function RasGetErrorString Lib "rasapi32.dll" Alias "RasGetErrorStringA" (ByVal uErrorValue As Long, ByVal lpszErrorString As String, ByVal cBufSize As Long) As Long<P>Public Const HWND_TOPMOST = -1<BR>Public Const HWND_NOTTOPMOST = -2<BR>Public Const SWP_NOSIZE = 1<BR>Public Const SWP_NOMOVE = 2<P>Type NOTIFYICONDATA<BR> cbSize As Long<BR> hwnd As Long<BR> uId As Long<BR> uFlags As Long<BR> uCallbackMessage As Long<BR> hIcon As Long<BR> szTip As String * MAX_TOOLTIP<BR>End Type<P>Public nTrayIcon As NOTIFYICONDATA

[Dvs]

critter : to "option explicit" den einai gia na allaxeis apo pou tha xekinane oi pinakes? (apo to 0 i to 1)?<P>Infrared : Auto pou les to exo kanei sta declaration tis startup form kai den douleuei. Apla les oti prepei na to kano sto startup module. Meta tha valo "load form1" (oste na tin fortosei?).

[Infrared]

Δημιούργησε ένα νέο module mMain.bas. Μέσα σε αυτό φτιάξε μία sub Main που θα την ορίσεις σαν main startup Object από Project -> xxxx Properties -> Startup Object -> Sub Main<P>Ενα παράδειγμα mMain.bas είναι το εξής:<P>Attribute VB_Name = "mMain"<BR>Sub Main()<BR> <BR> ' Εμφανίζει την φόρμα frmSplash <BR> frmSplash.Show vbModal <P> ' Εμφανίζει τη main φόρμα του προγράμματος<BR> frmMain.Show vbModal <P>End Sub<P>Αν θέλεις για κάποιο λόγο να κρύψεις μια φόρμα δώσε π.χ. frmMain.hide<P>Με αυτό τον τρόπο έχεις εσύ τον έλεγχο του προγράμματος.<P>Ελπίζω να βοήθησα.

[Infrared]

To module mdeclare.bas αν το έχεις μέσα στο project σου μαζί με το mMain.bas τότε οτι μεταβλητές έχεις δηλώσει στο mDeclare.bas είναι 'ορατές΄ και στo mMain.bas αλλά και σε κάθε φόρμα που καλείται από αυτό.

[Dvs]

ok - euxaristo poli gia tin voitha

[Winner]

Gia na ksekathariso ta pragmata:<P>Arxika gia na mporeis na xrisimopoieis mia metabliti pantou (se opoiodipote form, module, class) mporeis na kaneis 2 progmata:<BR>1) na tin diloseis "Public" mesa se ena module (meta gia na tin kaleseis grafeis mono to onoma tis metablitis)<BR>2) na tin diloseis "Public" mesa se mia forma (meta gia na tin kaleseis grafeis to <onoma tis formas>.<onoma metablitis> (px. form1.variable1)<P>To option explicit pou anefere o critter xrisimopoiitai gia na apatetitai i dilosi ton metablitwn! Diladi prepei panta prin xrisimopoiithei mia metabliti na dilonetai me tin entoli Dim i Static i Public...<P>Den exo na kano kapoia protasi gia to ti prepei na xrisimopoieis (kai stis dio periptoseis)... Einai analoga panta tou ti theleis...<P>Episis dvs eipes:<BR>"to "option explicit" den einai gia na allaxeis apo pou tha xekinane oi pinakes? (apo to 0 i to 1)?"<BR>Ayto pou les einai i entoli<BR>option base 0 (gia na ksekinane apo 0)<BR>option base 1 (gia na ksekinane apo 1)<BR>kai oxi i option explicit<P>Paidia kalitera na min apantate an den exete tsekarei ayto pou lete i an den exete katalabei ti zitaei o allos... Einai xeirotero nomizo giati mpleketai...<BR>Eplizo na boithisa!<P>[ 08-09-2001: Message edited by: Winner ]<p>[ 08-09-2001: Message edited by: Winner ]

[Dvs]

option explicit/base --> nai (ta psilomberdepsa)<P>-*-*-**-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-<BR>1) na tin diloseis "Public" mesa se ena module (meta gia na tin kaleseis grafeis mono to onoma tis metablitis)<BR>2) na tin diloseis "Public" mesa se mia forma (meta gia na tin kaleseis grafeis to <onoma tis formas>.<onoma metablitis> (px. form1.variable1)<BR>-*-*-**-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-<BR>tin eixa dilosei public se form alla den evaza mprosta to ovoma tis form <BR> Ena prama mono den exo katalavei: to module pou tha krataei tis public metavlites prepei na exei mono tis (public) metavlites i mporo na valo kai subs mesa ?

[Dvs]

exo kanei ta exis: prostesa sto project to mDeclares.bas . katopin exo grapsei sauto ta exis: <BR>Public Database As String<BR>Public A, ProgrN, RegN, Company, Serial, Email, Site, AddedD, More As String<BR>Public I, J As Integer<P>' kai liga sxolia edo!!!!<P>xekinao to programma apo tin form1 & dino kapia timi stin database.<BR>ama tora doso se opoiadipote form (ektos tis form1) "msgbox database" i database einai null!<P>ti mporei na ftaiei?

[vooda]

exo kanei ta exis: prostesa sto project to mDeclares.bas . katopin exo grapsei sauto ta exis: <BR>Public Database As String<BR>Public A, ProgrN, RegN, Company, Serial, Email, Site, AddedD, More As String<BR>Public I, J As Integer<BR>' kai liga sxolia edo!!!!<P>xekinao to programma apo tin form1 & dino kapia timi stin database.<BR>ama tora doso se opoiadipote form (ektos tis form1) "msgbox database" i database einai null!<P>ti mporei na ftaiei? <P>HI sas<BR>Pros DVS<BR>Public A, ProgrN, RegN, Company, Serial, Email, Site, AddedD, More As String<P>Me auth thn protash dhlwneis ws Variant ta A, ProgrN, RegN, Company, Serial, Email, Site, AddedD kai thn More As String.<BR>An de exeis grapsei kai sthn arxh tou programmatos thn protash Option Explicit tha sou bgalei gamw ta lathoi