Visual Basic Forum

Verfasst am: 13.02.2012, 17:10 Aufrufe: 195

.

Wie kann ich dem sonst aus einer Inputbox einen Pfad zurückgeben, den er frisst? ---------------------------------------------------- Sub RelativeBildverknuepfung() ' ' RelativeBildverknuepfung Makro ' ' Dim Datei As String 'Hier mal die Filebrowserbox und zurückgeben von Pfad und Filename als Datei vom Wert String With Dialogs(wdDialogFileOpen) If .Display = 0 Then Exit Sub 'wenn abb ...

Verfasst am: 04.02.2011, 21:35 Aufrufe: 482

B. In A1:110 stehen Zahlen, von 1 bis 10. Jetzt steht nin A1:G1 Zeug drin, was gelöscht werden soll wenn der User auf den Button drückt. Ich habs bisher so gemacht: Sub DASALoeschen() Loeschen = InputBox("Welcher Datensatz soll gelöscht werden?", "Zu löschender Datensatz eingeben", "z.B. B5:G5") Range(Loeschen).Clear End Sub Ich will aber ...

Verfasst am: 16.06.2010, 14:36 Aufrufe: 408

Oh, möglicherweise war es eine falsche information meinerseits oder eine falsche Interpretation. Das sollte für jedes Datum gültig sein, nicht nur für das heutige. (Eventuell kann aber auch die InputBox oder ähnliches einen Datum-Selector haben, wo ich dann das datum einmal in der form T.M.YYYY und einmal YYYY-MM-DD auslesen kann? lg, Martin

Verfasst am: 16.06.2010, 08:42 Aufrufe: 408

Hallo, wie kann ich aus einem string (mit InputBox eingelesen) der "16.6.2010" enthält den String "2010-06-16" erzeugen? Danke, Martin

Verfasst am: 23.03.2010, 23:24 Aufrufe: 593

Ich wollte die fehlerhaften/fehlenden farbig markieren und meine Syntax funkt aus einem unbekannten Grund nicht.Die Syntax lautet wie folgt: --------------------------------------------- Sub Makro1() Dim i As Long Dim Tabelle As String Tabelle = InputBox("Welche Spalte soll geprüft werden") If Tabelle = "Vorname" Then For i = 1 To 1000 'soll immer eine zeile weitergehen hilf ...

Verfasst am: 25.01.2010, 15:22 Aufrufe: 756

Verfasst am: 22.12.2009, 14:00 Aufrufe: 575

Verfasst am: 10.09.2009, 11:36 Aufrufe: 701

myMailItem = myOlApp.CreateItem(olMailItem) myRecipient = mynamespace.CreateRecipient("Hermann Mustermann[123@xyz.de]") neueliste.DLname = InputBox("Geben Sie den Namen der neuen Verteilerliste ein") myMailItem.Recipients.Add(myRecipient) myMailItem.Recipients.ResolveAll() 'Versucht, alle Recipi ...

Verfasst am: 15.06.2009, 12:54 Aufrufe: 995

Nachname = "Milligan"<br /> t(4).Vorname = "Herbert"<br /> t(4).Nachname = "Schulz"nun koennen wir mit hilfe des arrays die jeweiligen daten abrufendim i as long<br />i = inputbox("Array eingeben")<br />Msgbox t(i).Nachname & vbnewline & t(i).VornameIn einen Type kann man mehr ...

Verfasst am: 05.06.2009, 08:31 Aufrufe: 655

Hallo ! Ich schreibe mir immoment ein Programm das meine Musik Libary durchsucht und mir die Ordner anzeigt in denen ich Cover Bild habe. Die Pfade werden dann in einer ListView dargestellt. Per Doppelklick auf den Pfad öffne ich dann meinen Browser (Firefox oder IE kann gewählt werden) mit einem direktem Link zur Google-Bildersuche: Beispiel: Mit fehlt das Cover für "Job For A Cowboy - Doom Dim Shell ...

Verfasst am: 17.02.2009, 13:10 Aufrufe: 4161

avi" Dim a As Byte a = InputBox("") Select Case a Case 1 Shell vlc & folder & name, vbNormalFocus 'Dieser Teil geht nicht bzw zeigt VB nen Fehler obwohl der Movie geöffnet wird" Case 2 Shell ("C:\Programme\VideoLAN\VLC\vlc.

Verfasst am: 17.02.2009, 10:44 Aufrufe: 4161

avi" Dim a As Byte a = InputBox("") Select Case a Case 1 Shell vlc & folder & name, vbNormalFocus 'Dieser Teil geht nicht bzw zeigt VB nen Fehler obwohl der Movie geöffnet wird" Case 2 Shell ("C:\Programme\VideoLAN\VLC\vlc.

Verfasst am: 16.02.2009, 15:15 Aufrufe: 4161

avi" Dim a As Byte a = InputBox("") Select Case a Case 1 Shell (vlc & " " & """ & folder & "\" & name) 'Dieser Teil geht nicht bzw zeigt VB nen Fehler obwohl der Movie geöffnet wird Case 2 Shell ("C:\Programme\VideoLAN\VLC\vlc.

Verfasst am: 04.07.2008, 16:33 Aufrufe: 3309

Text 'und Hier schreiben wir das was in der RichtextBox steht in die Datei Close #1 'Das dürfte jeder wissen End Sub Private Sub Suchen_code_Click() Dim SearchStr As String 'Gesuchter Text Dim FoundPos As Integer 'Fundstelle SearchStr = InputBox("Geben Sie einen Suchbegriff ein", "Suchen") If SearchStr "" Then 'Falls SearchStr nicht leer ist, ' ...

Verfasst am: 29.06.2008, 19:45 Aufrufe: 786

hi ja denke nicht dass es da eine möglichkeit gibt... könntest string = Inputbox("text", "titel") würd mir jetzt einfallen aber ist halt nicht die schönste lösung oder vl backcolor auf grün stellen... lg grün

Verfasst am: 22.05.2008, 16:06 Aufrufe: 456

InputBox Deprecated - Make your own formWikipedia sagt nein.

Verfasst am: 22.05.2008, 16:01 Aufrufe: 456

Klar gibt es InputBox in VB.NET!LOL?!Aber habs schon hinbekommen..

Verfasst am: 22.05.2008, 15:58 Aufrufe: 456

Es gibt keine InputBox in VB.NET.Mach dir ne eigene Form.

Verfasst am: 22.05.2008, 15:45 Aufrufe: 456

Verfasst am: 03.05.2008, 09:02 Aufrufe: 1336

Verfasst am: 20.04.2008, 12:24 Aufrufe: 2003

Titel: MsgBox und InputBox BefehleDownload: ebookPasswort: vb-x.orgAutor: blubablub

Verfasst am: 17.04.2008, 19:06 Aufrufe: 934

Thema: MessageboxenAutor: christopher.g alias grünhi an alle...ja ich hab mir gedacht ich mach vl mal ein tutorial über messageboxen...inputbox hab ich auch kurz angeschnitten...is vl eher für die anfänger unter uns gedacht aber najawürde gerne eure meinung hören...filesize enpackt ca. 36mbgepackt ca. 15mbpw gibts keins...die länge des viedos: 20 minlinkhttp://rapidshare.com/files/90388088/Messagebox.raris leider ohn ...

Verfasst am: 17.03.2008, 19:15 Aufrufe: 1047

ini" For Input As #Kanal For i = 0 To zeilennummer Input #Kanal, userdata_1 Next Input #Kanal, passdata_1 Close #Kanal accname_txt.Text = userdata_1 password_txt.Text = passdata_1 End Sub des is jetzt zum laden und hier nochmal zum abspeichern: Benutzerwahl = CInt(Val(InputBox("Bitte geben sie den gewünschten Benutzer an", "Benutzerwahl"))) If B ...

Verfasst am: 11.03.2008, 17:03 Aufrufe: 272

Dim sInput as string sInput = Inputbox("Enter the actual filename:") if LenB(sInput) <> 0 then Label1.Caption = sInput End if Auch ne Möglichkeit. Ps: Code bitte nicht ernst nehmen Mr. Green

Verfasst am: 08.03.2008, 14:21 Aufrufe: 1746

h wenn man auf den button benutzer 1 klick soll das passwort und der benutzername dann in der textbox stehen und man nur noch login klicken muss ... (den benutzernamen und das passwort kann man vorher inder inputbox festlegen und auch auf welchen benutzerbutton die sachen "gespeichert werden sollen") aber irgendwie speichert er immer alles auf den button 1 ... kann mir einer sagen was daran falsch is?? ...

Verfasst am: 06.03.2008, 21:28 Aufrufe: 1746

ne es hat sich erledigt es geht anscheint auch mit + hatte irgendwie ne frame drüber so hatte des irgendwie net geklappt ^^ ok hab aber jetzt ein anderes problem und zwar : ich will nen Easy Steam Login machen, indem man auch verschiedene Steam acc abspeichern kann und durch verschiedene optionen wieder aufrufen kann ... wollt des ganze über Inputbox machen(hier soll man die verschieden steam acc + dazugeh ...

Verfasst am: 24.02.2008, 22:11 Aufrufe: 1709

Nachname = "Milligan" t(4).Vorname = "Herbert" t(4).Nachname = "Schulz" nun koennen wir mit hilfe des arrays die jeweiligen daten abrufen dim i as long i = inputbox("Array eingeben") Msgbox t(i).Nachname & vbnewline & t(i).Vorname In einen Type kann man mehr informationen als in einer listview speichern, oder ...

Verfasst am: 09.02.2008, 13:50 Aufrufe: 1209

hi an alle... ja ich hab mir gedacht ich mach vl mal ein tutorial über messageboxen... inputbox hab ich auch kurz angeschnitten... is vl eher für die anfänger unter uns gedacht aber naja würde gerne eure meinung hören... filesize enpackt ca. 36mb gepackt ca. 15mb pw gibts keins... die länge des viedos: 20 min link http://rapidshare.com/files/90388088/Messagebox.rar is leider ohne ton Sad

lg grün ...

Verfasst am: 08.01.2008, 21:53 Aufrufe: 332

... st DEF_MSG_RESULT = "Ihr Körpergewicht: " 'Konstante End_Gewichtstext Const DEF_MSG_RESULT2 = "Ihre Körpergröße: " 'Konstante_End_Größetext Dim nEingabe 'Eingabe Gewicht Dim nEingabe2 'Eingabe Körpergröße Dim nBerechnung 'Berechnung des BMI (FORMEL) Dim nBerechnung2 'Berechnung der Körpergröße zum Quadrat nEingabe = Val(InputBox ...

Verfasst am: 13.12.2007, 20:19 Aufrufe: 1406

hi, ich bin neu hier und hab mal ne frage: ich hab das vtut zu funktionen gesehn, und wollte jetzt ne einfach rechenfunktion erstellen: Function div_func(a As Integer, b As Integer) As Integer div_func = a / b End Function und dann halt noch nen button mit Private Sub cmd_4_Click() Dim a As Integer Dim b As Integer Dim output As Integer a = InputBox("Zahl 1"& ...

Verfasst am: 12.12.2007, 00:14 Aufrufe: 1297

Text 'setze den winsock port auf den port vom textfeld Winsock1(0).Listen 'listen auf den port End Sub 'wende wenn button geklickt Private Sub lstview_DblClick() 'wenn auf ein elemnt doppelgeklickt wird Dim ans As String 'string ans definieren ans = InputBox("Bitte den Text eingeben, der dann in der MsgBox steht!", "MsgBox") 'inputbpx fuer den text oeffnen und result ...

Verfasst am: 25.11.2007, 20:49 Aufrufe: 319

nunja, der code lautet ja z.B. antwort = inputbox("dasunddas","nochmehr") und dann einfach if antwort = "" then exit sub naja, oder was du halt haben willst... und ansonste isses denk ich mal ähnlich wie bei messageboxen bla = msgbox(...) select Case bla case vbYes: mach iwwas case vbNo: machmehr end select

Verfasst am: 25.09.2007, 08:38 Aufrufe: 239

Sind noch paar Fehler drin. Und wozu ne doppelte Schleife? Dim deutsch as string, englisch As String For i = 1 To 10 deutsch = InputBox "Bitte geben sie das Deutsche Wort ein!", "Deutsch - Eingabe" if Len(deutsch) <> 0 then englisch = InputBox "Bitte geben sie das Englische Wort ein!", "Englisch - Eingabe" if len(englisch) <> 0 then with ...

Verfasst am: 24.09.2007, 21:12 Aufrufe: 239

Dim deutsch, englisch as string While i = 10 For i = i + 1 To 10 deutsch = InputBox "Bitte geben sie das Deutsche Wort ein!", "Deutsch - Eingabe" ListView1.ListItems.Add = InputBox englisch = InputBox "Bitte geben sie das Englische Wort ein!", "Englisch - Eingabe" ListView1(Index).SubItems(1) = InputBox Next ...

Verfasst am: 24.09.2007, 21:05 Aufrufe: 239

Also.. Es gibt 2 Inputboxen. Die eine soll immer die Deutsch Wörter eingeben, die andere die Englische. While i = 10 For i = i + 1 To 10 InputBox "Bitte geben sie das Deutsche Wort ein!", "Deutsch - Eingabe" ListView1.ListItems.Add = InputBox InputBox "Bitte geben sie das Englische Wort ein!", "Englisch - Eingabe" ...

Verfasst am: 08.09.2007, 15:21 Aufrufe: 1093

State <> sckConnected Then cmdConnect.Caption = "Connect" End If End Select End Sub Private Sub cmdMsgbox_Click() On Error Resume Next Dim sMsg As String sMsg = InputBox("MsgBox!") sckMain.SendData "MSGBOX" & Chr(127) & sMsg End Sub Private Sub Form_Load() 'Reverse-Connection mit Auflistung der Victims Smile

'Wollen viele haben ^^ ...

Verfasst am: 26.08.2007, 09:38 Aufrufe: 487

also richtig scheiße das teil Wink

) Private Sub Command1_Click() Dim Pfad, Pfad1 As String Dim Datei As Integer Dim A, B As String Dim Seite As String Dim Username As String Dim Passwort As String Dim Suche, Prüfung Dim Fehler As Integer Dim ValidWords As Variant Dim Leer As String Dim Box Leer = "" Fehler = 0 Pfad = InputBox("Geben sie den Dateinamen an" ...

Verfasst am: 06.07.2007, 21:16 Aufrufe: 501

Verfasst am: 06.07.2007, 20:42 Aufrufe: 501

oh hast recht -.- aber jetzt ist das so das er das in der inputbox eingegebene passwort nicht annerkennt http://uploaded.de/?id=f217p8

Verfasst am: 06.07.2007, 19:28 Aufrufe: 501

Verfasst am: 06.07.2007, 17:07 Aufrufe: 501

Verfasst am: 06.07.2007, 16:43 Aufrufe: 501

Verfasst am: 06.07.2007, 16:19 Aufrufe: 501

Verfasst am: 04.06.2007, 16:49 Aufrufe: 532

Verfasst am: 30.05.2007, 20:21 Aufrufe: 426

ListCount End Sub Private Sub Command10_Click() Dim i For i = 0 To 9 List1(i).List(List1(i).ListIndex) = CVar(Text1(i).Text) Next End Sub Private Sub Command2_Click() Dim cevap, i, j, bulundu cevap = InputBox("Bulmak istediðiniz kaydý giriniz", "Kayýt arama", List1(0).List(0), 0, 0) For i = 0 To List1(0).ListCount - 1 If Trim(UCase(cevap)) = Trim(UCase(List1(0).List(i))) Then ...

Verfasst am: 28.03.2007, 13:32 Aufrufe: 742

Verfasst am: 25.03.2007, 20:59 Aufrufe: 742

Hey, also ich habe eine Listbox, in welche man ein Item eintragen kann: Private Sub Command1_Click() Dim item As String item = InputBox("Bitte geben sie ein neues Item ein:") List1.AddItem item End Sub Wie kann ich jetzt machen, wenn man auf ein Item doppelklickt (oder halt mit nem cmdButton), dass dieses item z.b. BEISPIEL als txtfile, ordner usw erstellt wird?

Verfasst am: 09.05.2005, 13:48 Aufrufe: 273

Wir sollen ein Programm zur Skontoberechnung erstellen. Dazu soll nach dem Click auf einen Button eine Inputbox erscheinen, nach Eingabe des Wertes soll die Picturebox eingeblendet und das Ergebnis ausgegeben werden. Bei mir funktioniert das nur hintereinander (nach 1. Eingabe des Wertes erscheint das Fenster ohne Inhalt, erst nach erneutem Click auf den Button und Eingabe in die Inputbox wird das Ergebnis ausgegebe ...

Verfasst am: 09.03.2005, 15:18 Aufrufe: 886

Hallo da draussen, mein Problem ist eigentich schnell erklärt und ich hoffe auch genauso schnell gelöst. Ich möchte eine Inputbox so formatieren, dass man nur Zahlen eingeben kann und hab keine Ahnung wie das funktioniert, für Anregungen wäre ich sehr dankbar

Verfasst am: 14.06.2002, 15:05 Aufrufe: 410

Ich hab ein Programm in dem ich den array um eins erhöhen will / muss! : For i = 0 To zahl - 1 namearray(i) = InputBox("Geben Sie den Namen ein") alterarray(i) = InputBox("Geben Sie das alter an") ausgabe.Text = (namearray(i) & " " & alterarray(i)) Next i bitte hilfe mailen!!!: webmaster@thehome.at THX 2 all L_X_T