/ 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
Sende beskeder fra et vindue til et andet
Fra : Jesper


Dato : 29-11-01 20:44

Kan nogen give et eksempel på hvordan man kan sende en besked fra en
formular til en anden.



 
 
@sbjørn (30-11-2001)
Kommentar
Fra : @sbjørn


Dato : 30-11-01 15:02

Opret en skjult textbox
"Jesper" <jesper.stensgaard@mail.dk> skrev i en meddelelse
news:3c068f51$0$89809$edfadb0f@dspool01.news.tele.dk...
> Kan nogen give et eksempel på hvordan man kan sende en besked fra en
> formular til en anden.
>
>



Tomas Christiansen (30-11-2001)
Kommentar
Fra : Tomas Christiansen


Dato : 30-11-01 22:28

Jesper skrev:
> Kan nogen give et eksempel på hvordan man kan sende en besked fra en
> formular til en anden.

Du må være lidt mere specifik!

Er der tale om to forms i samme program, eller er der tale om 2
forskellige programmer?
Hvis der er tale om 2 forskellige programmer, er det så dig, som har
lavet (er ved at lave) dem begge?
Hvad mener du egentlig med "en besked"? Er det blot én tekst, som skal
sendes fra A til B, eller er det virkeligheden et metode-kald, som du
bruger, med mulighed for at "holde afsenderen hen" indtil en opgave
hos modtageren er løst, og med mulighed for at give én eller anden
form for returkode?

Men lad mig komme med et lille eksempel, så har vi noget at gå ud fra:

1. Opret et "Standard EXE" Visual Basic projekt.
2. Tilføj en EKSTRA form til projektet, så at det nu indeholder Form1
og Form2.
3. Læg en TextBox på begge forms (den skal hedde Text1) og sæte
MulitiLine til True på dem begge.
4. Læg en knap Command1 på Form1.
5. Indsæt følgende kode i Form1:
Private Sub Command1_Click()
Form2.Show
Text1.SelStart = Len(Text1)
Text1.SelText = vbNewLine & "Besked vist i Form2: " & _
IIf(Form2.VisBesked("Form1", "Besked fra mig"), _
"JA", "NEJ")
End Sub

6. Indsæt følgende kode i Form2
Public Function VisBesked( _
ByVal Afsender As String, _
ByVal Tekst As String) As Boolean
Text1.SelStart = Len(Text1)
If Len(Tekst) < 20 Then
Text1.SelText = vbNewLine & "Besked fra " & _
Afsender & ": " & Tekst
VisBesked = True
Else
VisBesked = False
End If
End Function

Kør projektet og prøv at klikke på knappen Command1.
Prøv at ændre beskeden "Besked fra mig" til "Denne besked er for lang"
og kør programmet igen.

-------
Tomas


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

Månedens bedste
Årets bedste
Sidste års bedste