/ 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
pseudokode
Fra : CCR


Dato : 16-04-01 18:48

Uha, nu har jeg set mig lidt om i NG og jeg kan jo
godt se at i arbejder i VB 6.0 på et helt andet nivo
end mig.
Men med risiko for at kede jer vil jeg lige opstille
mit problem.

Jeg vil gerne skrive en pseudokode til Menuen Filer

Jeg må indrømme at mit kendskab til pseudokode
begrænser sig til HVIS og SÅ.

Jeg vil blive meget glad hvis der er et kvikt hoved
der vil give mig et eksempel eller to på en pseudokode
i det Project jeg har lavet.

Jeg vedlægger Menufiler koden nederst på siden.

Med venlig hilsen.
( og håb )

Carsten Carlsen.


Private Sub menufiler_Click(Index As Integer)
On Error GoTo cancelvalgt
Select Case Index
Dim cancelvalgt As Boolean

Case 0 'nyt billede
Dim svar As Integer

cancelvalgt = False

If lblDirty.Caption = "Dirty" Then
svar = MsgBox("Gem ændringer?", vbYesNoCancel + _
vbExclamation, "Tegneprogram")
If svar = vbYes Then
menufiler_Click 3 'kalder save
ElseIf svar = vbCancel Then
cancelvalgt = True
Exit Sub
End If
End If

Picture1.Picture = LoadPicture() 'sletter Filen
form1.Caption = "uden titel - tegneprogram"
lblfilnavn.Caption = ""

lblDirty.Caption = ""

Case 2 'open
menufiler_Click 0
If cancelvalgt = True Then Exit Sub
CommonDialog1.FileName = "*.bmp"
CommonDialog1.ShowOpen
Picture1.Picture = LoadPicture(CommonDialog1.FileName)
form1.Caption = CommonDialog1.FileTitle & _
" - Tegne-program"
lblfilnavn.Caption = CommonDialog1.FileName

Case 3
If lblfilnavn.Caption = "" Then ' spørg om fil navn
CommonDialog1.ShowSave
SavePicture Picture1.Image, CommonDialog1.FileName
form1.Caption = CommonDialog1.FileTitle & "tegneprogram"
lblfilnavn.Caption = CommonDialog1.FileName
Else
SavePicture Picture1.Image, lblfilnavn.Caption
End If

Case 4
CommonDialog1.ShowSave
SavePicture Picture1.Image, CommonDialog1.FileName
form1.Caption = CommonDialog1.FileTitle & _
" - Tegne-program"
lblfilnavn.Caption = CommonDialog1.FileName
lblDirty.Caption = " "

Case 6
menufiler_Click 0
If cancelvalgt = True Then

Exit Sub

End If
End

End Select
cancelvalgt:

End Sub



 
 
Lord Xevior (19-04-2001)
Kommentar
Fra : Lord Xevior


Dato : 19-04-01 11:18

Hm, prøv at oversætte de engelske keyword i VB til dansk.. Så tror jeg du
forstå meget bedre...

--
Thomas R - MS Developer DK

"CCR" <ccr@sol.dk> wrote in message news:9bfbe6$cf9$1@news.cybercity.dk...
> Uha, nu har jeg set mig lidt om i NG og jeg kan jo
> godt se at i arbejder i VB 6.0 på et helt andet nivo
> end mig.
> Men med risiko for at kede jer vil jeg lige opstille
> mit problem.
>
> Jeg vil gerne skrive en pseudokode til Menuen Filer
>
> Jeg må indrømme at mit kendskab til pseudokode
> begrænser sig til HVIS og SÅ.
>
> Jeg vil blive meget glad hvis der er et kvikt hoved
> der vil give mig et eksempel eller to på en pseudokode
> i det Project jeg har lavet.
>
> Jeg vedlægger Menufiler koden nederst på siden.
>
> Med venlig hilsen.
> ( og håb )
>
> Carsten Carlsen.
>
>
> Private Sub menufiler_Click(Index As Integer)
> On Error GoTo cancelvalgt
> Select Case Index
> Dim cancelvalgt As Boolean
>
> Case 0 'nyt billede
> Dim svar As Integer
>
> cancelvalgt = False
>
> If lblDirty.Caption = "Dirty" Then
> svar = MsgBox("Gem ændringer?", vbYesNoCancel + _
> vbExclamation, "Tegneprogram")
> If svar = vbYes Then
> menufiler_Click 3 'kalder save
> ElseIf svar = vbCancel Then
> cancelvalgt = True
> Exit Sub
> End If
> End If
>
> Picture1.Picture = LoadPicture() 'sletter Filen
> form1.Caption = "uden titel - tegneprogram"
> lblfilnavn.Caption = ""
>
> lblDirty.Caption = ""
>
> Case 2 'open
> menufiler_Click 0
> If cancelvalgt = True Then Exit Sub
> CommonDialog1.FileName = "*.bmp"
> CommonDialog1.ShowOpen
> Picture1.Picture = LoadPicture(CommonDialog1.FileName)
> form1.Caption = CommonDialog1.FileTitle & _
> " - Tegne-program"
> lblfilnavn.Caption = CommonDialog1.FileName
>
> Case 3
> If lblfilnavn.Caption = "" Then ' spørg om fil navn
> CommonDialog1.ShowSave
> SavePicture Picture1.Image, CommonDialog1.FileName
> form1.Caption = CommonDialog1.FileTitle & "tegneprogram"
> lblfilnavn.Caption = CommonDialog1.FileName
> Else
> SavePicture Picture1.Image, lblfilnavn.Caption
> End If
>
> Case 4
> CommonDialog1.ShowSave
> SavePicture Picture1.Image, CommonDialog1.FileName
> form1.Caption = CommonDialog1.FileTitle & _
> " - Tegne-program"
> lblfilnavn.Caption = CommonDialog1.FileName
> lblDirty.Caption = " "
>
> Case 6
> menufiler_Click 0
> If cancelvalgt = True Then
>
> Exit Sub
>
> End If
> End
>
> End Select
> cancelvalgt:
>
> End Sub
>
>



CCR (19-04-2001)
Kommentar
Fra : CCR


Dato : 19-04-01 19:18

Tak, det var da et svar..



"Lord Xevior" <rud_100@hotmail.com> skrev i en meddelelse
news:3adebb12$0$5726$4d4eb98e@news.dk.uu.net...
> Hm, prøv at oversætte de engelske keyword i VB til dansk.. Så tror jeg du
> forstå meget bedre...
>
> --
> Thomas R - MS Developer DK
>
> "CCR" <ccr@sol.dk> wrote in message news:9bfbe6$cf9$1@news.cybercity.dk...
> > Uha, nu har jeg set mig lidt om i NG og jeg kan jo
> > godt se at i arbejder i VB 6.0 på et helt andet nivo
> > end mig.
> > Men med risiko for at kede jer vil jeg lige opstille
> > mit problem.
> >
> > Jeg vil gerne skrive en pseudokode til Menuen Filer
> >
> > Jeg må indrømme at mit kendskab til pseudokode
> > begrænser sig til HVIS og SÅ.
> >
> > Jeg vil blive meget glad hvis der er et kvikt hoved
> > der vil give mig et eksempel eller to på en pseudokode
> > i det Project jeg har lavet.
> >
> > Jeg vedlægger Menufiler koden nederst på siden.
> >
> > Med venlig hilsen.
> > ( og håb )
> >
> > Carsten Carlsen.
> >
> >
> > Private Sub menufiler_Click(Index As Integer)
> > On Error GoTo cancelvalgt
> > Select Case Index
> > Dim cancelvalgt As Boolean
> >
> > Case 0 'nyt billede
> > Dim svar As Integer
> >
> > cancelvalgt = False
> >
> > If lblDirty.Caption = "Dirty" Then
> > svar = MsgBox("Gem ændringer?", vbYesNoCancel + _
> > vbExclamation, "Tegneprogram")
> > If svar = vbYes Then
> > menufiler_Click 3 'kalder save
> > ElseIf svar = vbCancel Then
> > cancelvalgt = True
> > Exit Sub
> > End If
> > End If
> >
> > Picture1.Picture = LoadPicture() 'sletter Filen
> > form1.Caption = "uden titel - tegneprogram"
> > lblfilnavn.Caption = ""
> >
> > lblDirty.Caption = ""
> >
> > Case 2 'open
> > menufiler_Click 0
> > If cancelvalgt = True Then Exit Sub
> > CommonDialog1.FileName = "*.bmp"
> > CommonDialog1.ShowOpen
> > Picture1.Picture = LoadPicture(CommonDialog1.FileName)
> > form1.Caption = CommonDialog1.FileTitle & _
> > " - Tegne-program"
> > lblfilnavn.Caption = CommonDialog1.FileName
> >
> > Case 3
> > If lblfilnavn.Caption = "" Then ' spørg om fil navn
> > CommonDialog1.ShowSave
> > SavePicture Picture1.Image, CommonDialog1.FileName
> > form1.Caption = CommonDialog1.FileTitle & "tegneprogram"
> > lblfilnavn.Caption = CommonDialog1.FileName
> > Else
> > SavePicture Picture1.Image, lblfilnavn.Caption
> > End If
> >
> > Case 4
> > CommonDialog1.ShowSave
> > SavePicture Picture1.Image, CommonDialog1.FileName
> > form1.Caption = CommonDialog1.FileTitle & _
> > " - Tegne-program"
> > lblfilnavn.Caption = CommonDialog1.FileName
> > lblDirty.Caption = " "
> >
> > Case 6
> > menufiler_Click 0
> > If cancelvalgt = True Then
> >
> > Exit Sub
> >
> > End If
> > End
> >
> > End Select
> > cancelvalgt:
> >
> > End Sub
> >
> >
>
>



Søg
Reklame
Statistik
Spørgsmål : 177551
Tips : 31968
Nyheder : 719565
Indlæg : 6408825
Brugere : 218887

Månedens bedste
Årets bedste
Sidste års bedste