|
|
 | 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
> >
> >
> >
>
>
| |
|
|