/ Forside / Teknologi / Udvikling / VB/Basic / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
VB/Basic
#NavnPoint
berpox 2425
pete 1435
CADmageren 1251
gibson 1230
Phylock 887
gandalf 836
AntonV 790
strarup 750
Benjamin... 700
10  tom.kise 610
Opgave
Fra : Ole J. Hansen


Dato : 27-10-01 19:42

Hej NG
Jeg har et problem, jeg har en opgave, hvor jeg skal lave nedstående
program, men jeg syndtes
ikke det er pænt, jeg kunne godt tænke mig, at køre programmet uden den
F`ORM der ikke
skal bruges til noget.
Kan det lade sig gøre at køre programmet som et MODULE eller et CLALSS
MODULE, og hvorledes skal det sætte op.

Private Sub Form_Load()
Dim tid As Date
Dim klokken As Date
tid = Format(Now, "hh")
klokken = Format(Now, "hh:mm:ss")
Select Case tid
Case 7, 8, 9
MsgBox "Som du kan se er klokken nu:" & (Chr(13) & Chr(10)) & "
" & klokken & (Chr(13) & Chr(10)) & "Jeg håber du har sovet godt "
Case 10, 11, 12, 13, 14, 15, 16, 17
MsgBox "Som du kan se er klokken nu:" & (Chr(13) & Chr(10)) & "
" & klokken & (Chr(13) & Chr(10)) & "Jeg håber du vil få en god dag "
Case 18, 19, 20, 21, 22
MsgBox "Som du kan se er klokken nu:" & (Chr(13) & Chr(10)) & "
" & klokken & (Chr(13) & Chr(10)) & "Jeg håber du får en god aften "
Case 23, 1, 2, 3, 4, 5, 6
MsgBox "Som du kan se er klokken nu:" & (Chr(13) & Chr(10)) & "
" & klokken & (Chr(13) & Chr(10)) & "Du skal i seng nu - GOD NAT -"
End Select

Rem (Chr(13)&Chr(10)) & klokken "
Unload frm_Hilsen
End Sub


M.V.H.
Ole J. Hansen




 
 
Niels (28-10-2001)
Kommentar
Fra : Niels


Dato : 28-10-01 04:51

Det du skal gøre er, at placere koden i en 'Private Sub Main' i et modul.
Derefter fjerner du din form. Hvis du går ind i Project properties, så vil
du
se at Startup Object nu er sat til Sub Main.

Husk at fjerne Unload frm_Hilsen

- Niels

"Ole J. Hansen" <ojh@hansen.mail.dk> wrote in message
news:3bdb018c$0$781$edfadb0f@dspool01.news.tele.dk...
> Hej NG
> Jeg har et problem, jeg har en opgave, hvor jeg skal lave nedstående
> program, men jeg syndtes
> ikke det er pænt, jeg kunne godt tænke mig, at køre programmet uden den
> F`ORM der ikke
> skal bruges til noget.
> Kan det lade sig gøre at køre programmet som et MODULE eller et CLALSS
> MODULE, og hvorledes skal det sætte op.
>
> Private Sub Form_Load()
> Dim tid As Date
> Dim klokken As Date
> tid = Format(Now, "hh")
> klokken = Format(Now, "hh:mm:ss")
> Select Case tid
> Case 7, 8, 9
> MsgBox "Som du kan se er klokken nu:" & (Chr(13) & Chr(10)) & "
> " & klokken & (Chr(13) & Chr(10)) & "Jeg håber du har sovet godt "
> Case 10, 11, 12, 13, 14, 15, 16, 17
> MsgBox "Som du kan se er klokken nu:" & (Chr(13) & Chr(10)) & "
> " & klokken & (Chr(13) & Chr(10)) & "Jeg håber du vil få en god dag "
> Case 18, 19, 20, 21, 22
> MsgBox "Som du kan se er klokken nu:" & (Chr(13) & Chr(10)) & "
> " & klokken & (Chr(13) & Chr(10)) & "Jeg håber du får en god aften "
> Case 23, 1, 2, 3, 4, 5, 6
> MsgBox "Som du kan se er klokken nu:" & (Chr(13) & Chr(10)) & "
> " & klokken & (Chr(13) & Chr(10)) & "Du skal i seng nu - GOD NAT -"
> End Select
>
> Rem (Chr(13)&Chr(10)) & klokken "
> Unload frm_Hilsen
> End Sub
>
>
> M.V.H.
> Ole J. Hansen
>
>
>



Ole J. Hansen (28-10-2001)
Kommentar
Fra : Ole J. Hansen


Dato : 28-10-01 10:55

Hej Niels
Tak, det fungerer fint.
ojh
"Niels" <ng@blommelunden.dk> skrev i en meddelelse
news:ihLC7.69$Dj2.27780@news010.worldonline.dk...
> Det du skal gøre er, at placere koden i en 'Private Sub Main' i et modul.
> Derefter fjerner du din form. Hvis du går ind i Project properties, så vil
> du
> se at Startup Object nu er sat til Sub Main.
>
> Husk at fjerne Unload frm_Hilsen
>
> - Niels
>
> "Ole J. Hansen" <ojh@hansen.mail.dk> wrote in message
> news:3bdb018c$0$781$edfadb0f@dspool01.news.tele.dk...
> > Hej NG
> > Jeg har et problem, jeg har en opgave, hvor jeg skal lave nedstående
> > program, men jeg syndtes
> > ikke det er pænt, jeg kunne godt tænke mig, at køre programmet uden den
> > F`ORM der ikke
> > skal bruges til noget.
> > Kan det lade sig gøre at køre programmet som et MODULE eller et CLALSS
> > MODULE, og hvorledes skal det sætte op.
> >
> > Private Sub Form_Load()
> > Dim tid As Date
> > Dim klokken As Date
> > tid = Format(Now, "hh")
> > klokken = Format(Now, "hh:mm:ss")
> > Select Case tid
> > Case 7, 8, 9
> > MsgBox "Som du kan se er klokken nu:" & (Chr(13) & Chr(10)) & "
> > " & klokken & (Chr(13) & Chr(10)) & "Jeg håber du har sovet godt "
> > Case 10, 11, 12, 13, 14, 15, 16, 17
> > MsgBox "Som du kan se er klokken nu:" & (Chr(13) & Chr(10)) & "
> > " & klokken & (Chr(13) & Chr(10)) & "Jeg håber du vil få en god dag "
> > Case 18, 19, 20, 21, 22
> > MsgBox "Som du kan se er klokken nu:" & (Chr(13) & Chr(10)) & "
> > " & klokken & (Chr(13) & Chr(10)) & "Jeg håber du får en god aften "
> > Case 23, 1, 2, 3, 4, 5, 6
> > MsgBox "Som du kan se er klokken nu:" & (Chr(13) & Chr(10)) & "
> > " & klokken & (Chr(13) & Chr(10)) & "Du skal i seng nu - GOD NAT -"
> > End Select
> >
> > Rem (Chr(13)&Chr(10)) & klokken "
> > Unload frm_Hilsen
> > End Sub
> >
> >
> > M.V.H.
> > Ole J. Hansen
> >
> >
> >
>
>



Søg
Reklame
Statistik
Spørgsmål : 177558
Tips : 31968
Nyheder : 719565
Indlæg : 6408889
Brugere : 218888

Månedens bedste
Årets bedste
Sidste års bedste