newbie @ VB

[f1re]

huhu

Also ich habe mir heute VB besorgt vom kolegen..

jetz habe ich mal zum kennenlernen und zum rumspielen mal nen kleinen text editor gebastelt
soweit geht auch alles so jetz kommt mein prob das menü

Also die ober menüs habe ich alle "Datei" "Bearbeiten" etc.

jetz wüsste ich gerne die befehle für die unter menüs sind wie man sie belegt weiß ich also ich breuchte jetz die befehle => "Neu" "Öffnen" "speichern unter" "Drucken" "Beenden (das is glaube Unload Me oder?" das steht alles unter "Datei" weiter gehts

"Rückgängig" "Ausschneiden" "Kopieren" "Einfügen" "gehezu" "alles markieren" das ist unter bearbeiten

wäre echt fett wenn mir die einer geben könnte *hoff*

 

[Daniel Toplak]

1.) Also beim Beenden machst du einfach mit endoder wie du gesagt hast unload me bzw unload formname

2.) Deine Menüs machst du mit dem Menüeditor


z.B.
Menü Datei:

Caption: &Datei (das '&' bewirkt einen Unterstrich unter dem 'D')
Name: datei

dann die Untermenüs von Menü Datei:

Caption: &Neu
Name: datei_neu

Caption: &Öffnen
Name: datei_oeffnen

Caption: Speichern &Unter
Name: datei_speichernunter

Caption: &Speichern
Name: datei_speichern

usw.....

Wichtig ist jetzt, daß du die Untermenüs mit dem Pfeil-rechts Button im Menüeditor einmal einrückst und daß sie unter dem Datei-Menü stehen. Also z.B. sollte das in dem fenster unten so aussehen:

&Datei
....&Neu
....&Öffnen
....Speichern &Unter
....&Speichern
usw...

Ich hoffe das war verständlich erklärt.

Gruß Homer

 

[K-DOG]

homer hat das vollkommen korrekt erklärt wobei das & zeichen optional ist.
mfg

 

[f1re]

gut erklärt aber soweit war ich schon jetz will ich aus einer datei den test lesen und dann is der textbox auslesen ich hab da son code zusammen geschustert => geht aber net

Private Sub öffnen_Click()
Dim open_txt As String
open_txt = InputBox("Datein pfat:")

Dim myArray() As String
Dim i As Long
FNr = FreeFile
Open " & open_txt " For Binary As #FNr
zw = Space(LOF(FNr))
Get #FNr, , zw
Close #FNr
myArray() = Split(zw, vbCrLf)
For i = 0 To UBound(myArray) - 1
Textbox.SelText = myArray(i) & vbCrLf
Next
Textbox.SelText = myArray(i)

End Sub

 

[Daniel Toplak]

Schau dir mal den Thread von [K-DOG] (einer vorher) an.

 

[f1re]

huhu nochmal....

also ich hab jetz 5 methoden um nen text einzulesen und ihn in der textbox wieder zugeben es kommt bei allen KEIN fehler aber der text wird nicht in der textbox ausgegeben..


Nummer 1

Dim open_txt As String
open_txt = InputBox("Datein pfad:")
Open " & open_txt " For Input As 1
Do
Line Input #1, zeile
Loop Until EOF(1)
Textbot.Text = zeile
Close #1
End Sub

-----------------------------
Nummer2

Private Sub öffnen_Click()
Dim temp As String
Dim open_txt As String
open_txt = InputBox("Datein pfad:")
Open " & open_txt " For Input As #1
temp = Input(LOF(1), #1)
Close #1
Textbox.Text = temp
End Sub

------------------------------
Nummer3

Dim temp As String
Dim open_txt As String
open_txt = InputBox("Datein Pfad:")
FNr = FreeFile
Open " & open_txt " For Input As #FNr
While Not EOF(1)
temp = Input(1, #FNr)
Textbox.Text = temp
Wend
Close #FNr

------------------------
Nummer4

Dim open_txt As String
open_txt = InputBox("Datein Pfad:")
FNr = FreeFile
Open " & open_txt " For Output As #FNr
Print #FNr, Textbox.Text;
Close #FNr

-----------------
Nummer5

Dim open_txt As String
open_txt = InputBox("Datein Pfad:")
FNr = FreeFile
Open " & open_txt " For Input As #FNr

Do While Not EOF(FNr)
Line Input #FNr, zw
Textbox.SelText = zw & vbCrLf
Loop
Close #FNr

If Len(Textbox.Text) > 0 Then
Text1.SelStart = Len(Text1.Text) - 2
Text1.SelLength = 2
Text1.SelText = ""
End If

 

[Daniel Toplak]

Also Nummer 1 schaut schon ganz gut aus.


Das ist deine Version:

Nummer 1
Dim open_txt As String
open_txt = InputBox("Datein pfad:")
Open " & open_txt " For Input As 1
Do
Line Input #1, zeile
Loop Until EOF(1)
Textbot.Text = zeile
Close #1
End Sub

ich würde es so machen:

Nummer 1

Dim open_txt As String
open_txt = InputBox("Datein pfad:")
Open " & open_txt " For Input As #1 'geändert
Do
Line Input #1, zeile
Loop Until EOF(1)
Textbot.Text = Textbot.Text & zeile & vbCrLF 'geändert
Close #1
End Sub

Versuch es mal so, da du mit deiner Methode den Inhalt deines Textfeldes immer wieder überschreibst.

 

[coste]

ich hab mir azuch mal vb besorgt und dann probiert

war wirklich ******e

aber naja is halt vb nix wirkliches

kann doch jeder

oder

werd mir auch mal wieder ein vb besorgen.

viel glück

 

[toby.s]

@ homer

wie kann ich das beim menu machen, dass es dann auch das macht???
geht dein beispiel bei mir nicht weil ich die englische version habe??
danke

 

[Dario Linsky]

wie kann ich das beim menu machen, dass es dann auch das macht???

dass es was genau macht? stell deine frage mal bitte etwas präziser.

geht dein beispiel bei mir nicht weil ich die englische version habe??

ähem...