Visual Basic Forum

Verfasst am: 25.05.2012, 11:04 Aufrufe: 11

ToString) ' <---- Hier Next Kopiere ich alles aus der Funktion ExcelOpen in die Buttonfunktion funktioniert das ganze. gefällt mir aber nicht. Nun frage ich mich ob das Problem beim row object oder doch eher beim Excelaufruf liegt, warum es klappt wenn alles lokal beieinander liegt und überhaupt, was hier schief läuft. Ich entschuldige mich für die wirre Problembeschreibung, ich blicke sel ...

Verfasst am: 18.03.2012, 13:44 Aufrufe: 1028

Warum sollen wir dir den Code schreiben? Schau dir mal die Tuturialserie an.

Verfasst am: 14.02.2012, 17:25 Aufrufe: 225

Zitatanfang: "Warum schreibst du eigentlich hinten an deine sendkeys anweisung & cmd? sind die zahlen nötig?" Zitatende Sorry... hinter der anweisung muss natürlich die variable "ges" hin, da vorher vom nutzer die Stunden, Minuten und Sekunden und den dafür vorgesehenen Textfeldern eingegeben werden können und diese dann logischerweise von meinem Programm gleich umgerechnet werden. M ...

Verfasst am: 14.02.2012, 16:11 Aufrufe: 225

hallo hast es schon mal mit einer anderen zeichenfolge versucht z.b. ipconfig probiert? dann kannst vl ein wenig eingrenzen Edit: Warum schreibst du eigentlich hinten an deine sendkeys anweisung & cmd? sind die zahlen nötig?

Verfasst am: 01.02.2012, 08:29 Aufrufe: 591

sry noch nie gehört Warum eigentlich VBS und nicht vb6 oder .net?

Verfasst am: 22.01.2012, 15:52 Aufrufe: 268

Verfasst am: 20.11.2011, 20:59 Aufrufe: 363

Ich hab' ein Formular mit zwei Textfeldern: txtEingabe und txtausgabe und einen Button: cmd_fett. In txtEingabe soll der markierte Text mit HTML <b></b> umgeben werden und in txtausgabe ausgegeben werden, nachdem auf btn_fett geclickt wurde. Funktioniert auch, aber eben immer erst nach dem zweiten click. Was mach ich falsch? Danke im Voraus für Eure Hilfe. Option Compare Database Option Explicit ...

Verfasst am: 03.11.2011, 11:52 Aufrufe: 484

... "\Speicherplatzbelegung.xls" Set Belegung = ActiveWorkbook Einlesen.Activate s = Mid(Cells(1, 1), 18, 15) Belegung.Activate Cells(3, 3) = s aktivieren funktioniert! Smile

in der zeile s=mid... bekomme ich für s auch den richtigen wert angezeigt beim debuggen! allerdings kommt dieser wert nicht in der anderen excel datei an Sad

weiß jemand warum ...

Verfasst am: 29.10.2011, 21:05 Aufrufe: 246

ich habe mir deinen code jetzt nicht zeile für zeile durchgesehen aber beim lesen deiner beschreibeung hab ich mich gefragt warum du nicht einfach nur vbTab verwendest?! Variable = "30" & vbTab & "was weis ich" ja da brauchst du nicht mehr mit leerzeichen arbeiten kommt aber vor dass du in einer zeile die ein bisschen kürze ist ein paar leerzeichen anhängen musst und dann vbta ...

Verfasst am: 27.10.2011, 07:32 Aufrufe: 246

hi! warum lässt du select case nicht einfach weg? If Command1(0).Caption = "X" And Command1(1).Caption = "X" And Command1(2).Caption = "X" Then MsgBox "Spieler 1 hat gewonnen!" elseif Command1(0).Caption = "O" And Command1(1).Caption = "O" And Command1(2).Caption = "X" Then ...

Verfasst am: 18.10.2011, 10:07 Aufrufe: 501

hi winsock ist das stichwort dass du suchst Wink

nur verstehe ich nicht ganz warum du in vb5 codest?? zum einen gibt es mittlerweile Smile

vb6 aber das ist baujahr 1998 Wink

wenn du jetzt erst zum lernen anfängst lerne vb.net oder gleich eine hochsprache! aber wenn du trozdem bei vb5 oder 6 bleiben möchtest helfe ich dir gerne weiter lg

Verfasst am: 17.09.2011, 10:31 Aufrufe: 213

Wenn ich eines meiner Ergebnisse (Nr. Cool

jetzt weiterverwenden will, bekomme ich aber folgende Meldung: "Beim Umwandeln aus einer Zahl muss der Wert eine Zahl sein, die kleiner als unendlich ist." Ich verstehe nur nicht warum, da ich die gleiche Logik verwende wie bei den vorherigen Berechnungen. Hier mein Code: Private Sub cmdBerechnen_Click(ByVal sender As Object, ByVal e As System.EventArgs ...

Verfasst am: 30.08.2011, 17:12 Aufrufe: 975

Wie kann ich ein Projekt umbenennen? Ich habe keine Möglichkeit gefunden, ein aufgerufenes Projekt unter einen neuen Namen speichern zu können. 2. In einem Übungsbeispiel ist folgende Befehlszeile, mit der die Vertikalposition eines Panels neu bestimmt wird: Panel.Location = New Point(Panel.Location.X, 20) Warum kann man nicht gleich die Y-Koordinate bestimmen, so etwa: Panel.Location.Y = 20 Wäre doch e ...

Verfasst am: 29.08.2011, 03:22 Aufrufe: 747

Fields("Bild") = LoadPicture(DateiDialog.Filename) ADC.Update ADC.Close Genau das Gleiche auch beim Auslesen... Warum also ist es nicht möglich, einen 'Bitmap-String' in ein Blob einzulesen? Sind es denn Format-Schwierigkeiten? Oder Übertragungs-Probleme bei so langen Strings/Streams?... Warum muß denn, wie ich gelesen habe, dazu stattdessen offenbar ein ADODB-Stream geöffnet werden??... ...

Verfasst am: 17.08.2011, 19:37 Aufrufe: 279

so erstmal vielen dank klappt alles wunderbar aber warum ist jetzt text1 automatisch immer im focus sobald die anwendung geöffnet wird ? d.h. der text von text 1 ist automatisch weg... Private Sub Command1_Click() Text5.Text = CSng(Text2.Text) / 60 Text4.Text = CSng(Text1.Text) / 9 Text3.Text = CSng(Text4.Text) + CSng(Text5.Text) Text6.Text = Math.Round(Text3.Text) End Sub Private ...

Verfasst am: 13.07.2011, 18:33 Aufrufe: 527

... End Function Ich möchte quasi aus dem XML-File einen Wert auslesen von einem Child-Element und dem entsprechenden Form-Element zuweisen. Wie man sieht heißt das Child-Element genauso wie das Form-Element. Jetzt bräcuhte ich quasi eine Schleife baut, da ich sonst ja jeden Wert einzeln zuweisen müsste. Ab einer gewissen Menge macht das logischerweise keinen Sinn. Bitte keine Diskussion jetzt darüber, warum ...

Verfasst am: 03.07.2011, 13:14 Aufrufe: 291

Hi! Ich hab ein Problem in VB2010 mit dem MonthCalendar Control: Nachfolgender Code funktioniert nicht mit der Fehlermeldung "Der Wert vom Typ "System.Collections.Generic.List(Of Date)" kann nicht in "1-dimensionales Array von Date" konvertiert werden." Keine Ahnung was das bedeutet und warum es nicht funktioniert. Dim darray As New List(Of Date) Dim d As ...

Verfasst am: 17.06.2011, 11:15 Aufrufe: 508

... 4, FirmaD, 3 Tbl_land ID (Autowert), Land 1, Deutschland 2, Oesterreich 3, Schweiz Nun zeigt es mir jedoch im DataGridView die ID des Landes an statt der Namen des Landes wie oben im Beispiel Dargestellt mit ID, FirmaA, 1 anzeigen sollte es jedoch ID, FirmaA, Deutschland. Wie kann ich den Namen und nicht die ID anzeigen lassen? Ich hoffe ihr könnt mir weiterhelfen. P.S. warum ...

Verfasst am: 04.06.2011, 07:38 Aufrufe: 473

okay, und warum? lg, Statiker

Verfasst am: 25.05.2011, 05:57 Aufrufe: 669

Warum sind Setups ungern gesehen? Ich brauche so ein Setup, da mehrere Dateien auf den USB-Stick kopiert werden. Warum es so aufgeblasen ist? Naja, die Designs, die dabei sind, sind alle in das Setup integriert. Das heißt, jedes einzelne Bild für Hintergrund, Buttons usw. ist mit dabei. Im Programm drin sind dann nochmals viele Bilder usw. integriert... Und außerdem ist es mein erstes Programm, das heißt es i ...

Verfasst am: 24.05.2011, 13:33 Aufrufe: 669

du setups sind sehr ungern gesehen... aber sag mal warum ist denn das programm so aufgeblasen..?? 11 mb was lieferst du da alles mit?

Verfasst am: 17.05.2011, 14:05 Aufrufe: 564

Beim ersten Aufruf funktioniert alles bestens, öffne ich dann eine neue Datei, such mein Programm in dieser auch nach Fehlern und arbeitet richtig, wenn ich jetzt aber die Spalte hinzu fügen will, schreibt er mir diese in die alte Datei und nicht in die, die er aktuell ausgelesen und geprüft hat...wie lässt mein VB die Exceldatei wieder los?? Zumal sie im idealfall auch noch geöffnet bleiben sollte....warum gibt es k ...

Verfasst am: 20.03.2011, 22:12 Aufrufe: 618

php?page=Index", 5000) Then ToolStripStatusLabel2.Text = "Erreichbar" Else MsgBox("Der Server kann nicht erreicht werden!", MsgBoxStyle.Exclamation) End If Catch ex As Exception MsgBox(ex.Message) End Try Warum geht das nicht bei vb-Paradise.de gibt es noch eine andere möglichkeit ...

Verfasst am: 04.03.2011, 10:25 Aufrufe: 562

" "Verbindung zu 192.168.0.2 hergestellt" "Antwort auf Anfrage" Was läuft schief? Warum kann ich nicht über ein Socket nacheinander Verbindungen zu Netzwerkgeräten aufbauen? Es wird immer nur mit der letzten IP ordentlich verbunden Sad

EDIT: Alles klar - Problem gelöst. Man sollte dem Verbindungsaufbau auch ein wenig Zeit einräumen Neuer Code Sub Form_Load() Verbindun ...

Verfasst am: 02.02.2011, 09:50 Aufrufe: 2073

P.S. Benutze inzwischen doch wieder das VBScroll von Gasanov - das Add-In aus dem EP funktioniert bei mir, weiss der Kuckuck warum, leider nur in der gebundenen, aber nicht im der SDI-Entwickler-Ansicht - und die brauche ich wegen der Mehrfach-Monitor-Ausstattung. Das VBScroll von Gasanov funzt hingegen in jeder Entwickler-Ansicht und ist sogar konfigurierbar, wieviele Zeilen pro Wheelraster gescrollt werden sollen. ...

Verfasst am: 16.01.2011, 11:32 Aufrufe: 395

Hallo! Habe folgendes Problem ich will die Anmeldemaske von der Seite www.assistance-data.com/EDDS/ ausfüllen habe schon alles mögliche versucht wenn ich die Seite lokal laufen lasse also den quelltext rauskopieren in eine html datei rein dann gehts auf der original seite kann ich aber kein formular und keine felder ansprechen hat einer eine idee warum das so ist und wie ich das lösen könnte. ich h ...

Verfasst am: 26.10.2010, 15:25 Aufrufe: 628

Hier der "Code": Namespace NameSpaceNr1 Public Class ClassNr1() public function functionNr1() [...] end function [...] End Class Public Module ModuleNr1 ClassNr1.functionNr1() End Module End Namespace Kann ich das Modul so machen und wenn ja, warum kann ich dann nicht auf die Funktion der Klasse zugreifen? D ...

Verfasst am: 22.09.2010, 18:35 Aufrufe: 812

Danke es hat funktioniert. Warum bin ich nicht darauf gekommen? Aber es geht noch weiter denn wenn mehrere Gener exitieren wird nur einer animiert: Private Sub Timer2_Timer() Dim Gegner1 As Integer Dim Ch1 As Integer Dim Ch2 As Integer Dim Ch3 As Integer Dim Ch4 As Integer For Gegner1 = 0 To Bod11 If Picture19(Gegner1).Picture = Picture18(0).Picture Then Picture19(Gegner1 ...

Verfasst am: 16.09.2010, 07:03 Aufrufe: 1346

nicht if ID = "5" sondern if len(ID) = 5 then 'vorgang wird bearbeitet else 'bitte geben sie ihre korrekte ID ein endif aja nochwas GANZ WICHTIG wenn du sowas machst solltest du die Variable ID nicht als integer deklarieren warum?: Integer hat die obergrenze mit 32767 das heist sobald du eine ID eingibst die größer ist -> Fehler (Überlauf) weiters wenn du z.

Verfasst am: 07.09.2010, 11:11 Aufrufe: 475

1100 Zeilen einlesen. Beim Einlesen wird aber immer bei der 270 Zeile abgebrochen. Hoffe da kann mir jemand weiterhelfen, warum dies nicht funktioniert. Ich verwende folenden VB Code: Open datei For Input As #1 Do While Not EOF(1) Line Input #1, Data i = i + 1 Debug.Print i If InStr(1, Data, "SerialNo") > 0 Then serial = Mid&# ...

Verfasst am: 30.08.2010, 12:58 Aufrufe: 1015

warum erstellst du das projekt nicht neu..??? den code kannst vl sogar großteils 1 zu 1 kopieren und einfügen dann brauchst dich nicht so rumärgern

Verfasst am: 25.08.2010, 11:04 Aufrufe: 881

hmm kann mir nicht vorstellen dass das funktionieren soll... warum... weil im office "VBA" also schwaches vb6 verwendet wird und nicht vb.net so an deiner stelle würde ich mit vb.net ein eigenes seperates prog schreiben dass sich mit dem ftpserver verbindet dir in einer listbox oder listview was auch immer die daten einliest mit dbl click oder so die datei schnell runterlädt diese mit shellexec ...

Verfasst am: 05.08.2010, 10:20 Aufrufe: 1031

Hallo mein Freund Very Happy

, nochmals danke - ich kann mich nicht genug bedanken. Läuft ja jetzt ruck zuck - paar sekunden, dann fertig! Die Ausgabe.txt schaut jetzt so aus: Die ersten 8 Zeilen sind leer - kein Eintrag - warum auch immer! . . . . . . . . 95787 = 3x 117399 = 3x 293889 = 3x 351563 = 3x 606491 = 3x 624476 = 3x 699955 = 3x 845144 = 3x 900438 = 3x 957189 = 3x 961805 = 3x 96823 ...

Verfasst am: 25.02.2010, 18:35 Aufrufe: 511

hi @ all titel sagt ja alles. ich will ein fenster programmieren das beim click auf einen button den text des labels ändert. soweit kein problem aber irgendwie hauen die if abfragen nicht hin und ich habe keine ahnung mehr warum. button1 = Nein button2= Ja hier die sourcen If Label1.Text = "text 1" Then Label1.Text = "text2" ElseIf Label1.Text = "text2" Then ...

Verfasst am: 19.02.2010, 13:06 Aufrufe: 1034

Hallo, mir wird folgender Fehler (laufzeitfehler 1004 Die Copy-Methode des Worksheet-Objektes konnte nicht ausgeführt werden) angeziegt wenn der Quelltext an der hervorgehobenen Zeile angelangt ist. Warum? Dim i_row_coc, i_column_no, i_column_coc, lfdnr_vcoc, lfdnr_coc As Integer Dim i_row_vcoc As Long i_row_coc = ActiveCell.Row i_row_vcoc = i_row_coc i_column_no = Cells.Find(What:="A", After:=A ...

Verfasst am: 30.01.2010, 11:14 Aufrufe: 999

Hallo Daniel_L, warum nimmst du nicht My.Settings? In den Projekteigenschaften unter Einstellungen fügst du 4 Felder vom Typ String hinzu (z.B. TextLabel1, Textlabel2, usw...). Dann kannst du über My.Settings.TextLabel1 darauf zugreifen. Im Form_Load fügst du ein: Label1.Text = My.Settings.TextLabel1 usw... Und da, wo die Einträge gespeichert werden sollen: My.Settings.TextLabel1 = Label1.Text ..

Verfasst am: 24.01.2010, 15:46 Aufrufe: 746

... -------------------------------------- Das Password un der Username werden aus 2 .txt Dateien ausgelesen. Das funktioniert auch wenn man den Message Boxes glauben schenkt. Leider kriege ich immer wieder die Meldung, dass das Password bzw. der Username falsch ist. Dies ist allerdings nicht immer der Fall. Die Anmeldung funktioniert immer, wenn ich den Teil mit dem speichern der URL weglasse. warum ...

Verfasst am: 17.01.2010, 15:35 Aufrufe: 423

Hallo ich habe hier einen Code für eine Anmeldung am Programm. Wenn das Programm zum roten Code kommt und das Formular geschlossen werden und ein neues geöffnet werden soll springt das Programm für mich unverständlicherweise zur blauen Prozedur. Warum ist das so und wie kann ich das verhindern? Gruss Arrowlight Public Class frmSplash Public txtMName As String Private Sub frmSplash_Load(ByVal send ...

Verfasst am: 21.12.2009, 09:50 Aufrufe: 1617

So wie ich das verstanden habe, willst du dein Prog. ja "Autostarten" lassen oder? Schiebt einfach eine Verknüpfung deines Programms in den Autostart. Warum das Weiß ist müsstest du über den Debug herausfinden. Welchen Sinn erüllt dein Programm überhaupt? mfg

Verfasst am: 14.12.2009, 10:23 Aufrufe: 1617

2: -Warum muss dein Prog eine Batchdatei ausführen? -Du könntest eine Batchdatei unter Start/Programme/Autostart schieben und folgendes hineinschreiben: [Pfad zu deinem Programm]\Progname (inkl .

Verfasst am: 06.09.2009, 15:39 Aufrufe: 379

Verfasst am: 17.08.2009, 16:56 Aufrufe: 843

Dabei wird im Debugger die Code-Zeile "Application.DoEvents" gelb unterlegt. Ich weiss das man mit DoEvents vorsichtig sein muss, aber in diesem Fall habe ich keine Ahnung warum es zu der Exception kommt. Hat jemand eine Idee wie man die Ursache dieser Exception aufspüren kann? Die Details die im Exception-Window angezeigt werden sind auch nicht gerade Aufschlussreich wie weiter unten zu sehen ist. ...

Verfasst am: 06.08.2009, 10:17 Aufrufe: 333

Hallo kann mir jemand helfen? Ich soll ein Programm erweitern, doch wenn mein Programm an die Stelle CurveCtrl1.Clear kommt, bekomm ich jedes mal einen Fehler! Der Wert der Variable wird mit nothing angezeigt. Die Variable ist mit Global CurveCtrl1 As CurveCtrl deklariert und wird vorher eigentlich nicht angerührt. Danke P.S. Ich bin gerade erst in Visual Basic 6 eingestiegen.

Verfasst am: 03.08.2009, 19:09 Aufrufe: 493

jetzt frag ich mich warum es nicht geht o0sry das ich immer einen thread aufmache und dann löse ich meine probleme selbst aber ich hab den fehler gefundener lag am sourcecode den ich kopiert hab vom tutorialVisual Basic: [code]Public Function ExtractResource(ResType As String, ResID As Long, FullOutputPath As String)On Error Resume NextDim OCX() As ByteOCX = LoadResData(ResID, ResType)Close #1Open FullOutputPath For ...

Verfasst am: 21.07.2009, 20:56 Aufrufe: 1084

Visual Basic: das kommt aber immer noch wenn ich auf debuggen gehe und dann die aktion einleite

Verfasst am: 21.07.2009, 12:23 Aufrufe: 335

Selbst als "nur Verarsche" akzeptieren wir keinen Müll im Forum.

Verfasst am: 20.07.2009, 08:21 Aufrufe: 701

Hallo, hab da ein Problem ich möchte eine Abfrage starten sobald mein Port keine Antwort mehr bekommt. Jedoch springt das Programm nicht mehr zurück. Weiß jemand was ich falsch gemacht habe? Sub Pause(ByRef serialPort As System.IO.Ports.SerialPort) Dim response As String ' serialPort.Open() 1: serialPort.WriteLine("SL&F") Try ...

Verfasst am: 18.07.2009, 16:35 Aufrufe: 1417

... an dem code nicht, denn wenn ich den layer über die maus schließe funktioniert es ja immer und ich bekomme immer einen layerklick in meiner Statistik, aber nicht wenn ich es mit meinem Programm mache :=? Nun an irgendeinem Punkt hakt es, aber ich weiß Leider nicht an welchen:( Vielleicht hat sich ja einer aus dem Forum mit diesem Thema mal befasst und könnte mir einen Tipp ratschlag oder erklärung geben warum ...

Verfasst am: 17.07.2009, 11:57 Aufrufe: 755

@Clarence : das geht mit dem programm FireBug, falls ich ein tut machen soll melde dich per pn. @ChangeIt : Warum soll der button so nicht heißen?

Verfasst am: 01.07.2009, 11:10 Aufrufe: 1760

In dem Beispielprojekt ist nur ein Update Server eingetragen, aber es ist möglich mehrere einzutragen indem in die Multiline Textbox Server mehrere Adressen eingetragen werden (je Zeile immer einer). Ich weis nicht warum aber bei mir nimmt die Textbox die Return und Enter Taste nicht an, um mehrere Server einzutragen musste ich deshalb die Server erst in eine andere Datei schreiben und dann mit Strg + C und Strg + V ...