Visual Basic Forum

Verfasst am: 28.01.2012, 13:05 Aufrufe: 78

.. ich habe 2 Textboxen, in der einen Steht der Link und in der 2. der Text ! Wenn ich jetzt auf den Button Klicke soll er mir den Hyperlink in die untere Box schreiben. Diesen Code habe ich gerade dafür: Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim url As String ]TextBox2.Text End Sub Aber er sagt mir das die hie ...

Verfasst am: 25.01.2012, 09:30 Aufrufe: 121

aber wenn ich jetzt nen Ordner mit datein asuwähle bleibt er nicht stehen wenn es keine Ordner sondern nur Datein in deem ordner gibt und es steht auch unten kein "öffnen" sodass er den pfad in die Listbox oder das Textfeld schreibt ! Sry bin icht Anfänger .. so sieht mein Code aus: Public Class Form1 Private Property cFile As String Private Sub TextBox1_TextChanged(ByVal sender As Sys ...

Verfasst am: 13.01.2012, 18:47 Aufrufe: 92

eventuell ein virtuelles altes betriebssystem installieren das könnte funktionieren habs aber selbst nie probiert was ich mir nur nicht sicher bin.. wenn du deine projekte in vb6 schreibst ob diese dann auf dem 64bit system laufen hab ich noch nie getestet vb6 und vista 32bit funktioniert noch wunderbar

Verfasst am: 06.01.2012, 03:55 Aufrufe: 2344

Um eine bestimmte Startseite festzulegen, gibt es keinen so kurzen Code.Die einfachste Möglichkeit ist es die Startseite in einem Textdokument zu speichern. Die idee mit der Txt find ich gut aber ich Selber würdes eher so Machen weil man dann nichts extra abspeichern muss Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load TextBox1.Text = "d ...

Verfasst am: 04.01.2012, 10:13 Aufrufe: 141

0.0.60, Culture=neutral, PublicKeyToken=8407f15ee3c2c65c, processorArchitecture=msil/TDO-EXT.exe, Version=1.0.0.60, Culture=neutral, PublicKeyToken=8407f15ee3c2c65c, processorArchitecture=msil, type=win32 System.TypeLoadException: Typ "TDAPIOLELib.ITDConnection" konnte nicht aus Assembly "TDO-EXT, Version=1.0.0.0, Culture=neutral, PublicKeyToken=null" geladen werden. Der Typ ist als für Typäqui ...

Verfasst am: 30.12.2011, 00:03 Aufrufe: 165

hi ich stelle mich erstmal vor: ich bin männlich 23 jahre alt und bin Fachplaner für Elektrotechnik und auch begeistert vom Programmieren. Mein Projekt :ich habe einen PC im Auto mit dem ich diverse Sachen steuere und auslese über das bus system (einige meinen jetzt es wäre spielerei aber ich kann wirklich alles damit steuern) mein PB ist das ich das programm cPos von fuchs für mein car PC benutze und es mi ...

Verfasst am: 12.12.2011, 13:50 Aufrufe: 169

Das geht’s um mein Anwendung code für BLDC motor auf die miKrocontoller laden zu können. Ich kann in Moment einmal 8 Bytes senden aber bekomme ich kein ACK(acknowledge) . Ich weiss nicht wie gehe ich vor. ' Handles send data Private Sub btnSendData_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Command6.Click Dim iResult, iTmp As Short Dim sCmd As String ...

Verfasst am: 07.12.2011, 13:58 Aufrufe: 249

************** Ausnahmetext ************** System.

Verfasst am: 01.12.2011, 07:27 Aufrufe: 249

Hallo, beim Schließen eines Windows-Forms tritt folgende Exception auf: ***** System.

Verfasst am: 29.11.2011, 08:37 Aufrufe: 194

Hallo erstmal in die Runde, ich habe ein Problem an dem ich nun schon ewig hänge und einfach nicht weiter komme. ich möchte ganz einfach den Text aus der Zwischenablage ausgeben bzw. in eine Variable schreiben. Hier mein Code: Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click MsgBox(HoleTextVonZwischenablage&# ...

Verfasst am: 22.11.2011, 18:05 Aufrufe: 200

Hallo, Die Kollisionsabfrage habe ich bereits, das könnt ihr aus dem Sourcecode entnehmen. In dem Code steht die Gesamte Physik-Engine, also alles was man braucht um mir evtl. helfen zu können. Es handelt sich um 2+n Bälle die sich Physikalisch korrekt Verhalten in einem System mit Gravitation. Kollision am Rand klappt gut, auch die Kollisionserkennung zwischen den Bällen. Das problem ist nur. Sobald die Bä ...

Verfasst am: 02.11.2011, 20:54 Aufrufe: 289

... auf "JA" klickt geht alles normal weiter kann man das noch irgendwie darein schreiben das automatisch auf "JA" geklickt wird oder kann man diesen "Skriptfehler" beheben? Hat jemand vllt. das selbe Problem und konnte es evtl. beheben? Hier ein Screenshot: http://i40.tinypic.com/osy3b8.jpg Code: Public Class Form1 Private Sub Button1_Click(ByVal sender As System ...

Verfasst am: 19.10.2011, 10:42 Aufrufe: 156

.. habe mittlw. eine andere Alternative ausprobiert und auch hier scheitert es am Freezing... Private Sub Verzoegerung() Dim Zeit As Integer = 2000 Dim Zeit1 As Integer = System.Environment.TickCount While (System.Environment.TickCount - Zeit1) < Zeit GeckoWebBrowser1.Navigate(URL.Text) End While End Sub EDIT: Hat sich erledigt ...

Verfasst am: 02.10.2011, 18:55 Aufrufe: 142

Also was ihr braucht: -2 Textboxen -1 Button Ihr platziert sie beliebig geht doppelclick auf den Button und gebt ein: Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click MsgBox(TextBox2.Text, TextBox1.Text) End Sub End Class

Verfasst am: 01.10.2011, 22:40 Aufrufe: 347

Hallo ihr lieben ich brauche mal euer können ich arbeite zurzeit an einem tool was True Crypt laufwerke einbinden und ausbinden soll 2 button habe ich erstellt in einer form und den code benutze ich nur irgendwie passiert nichts wenn ich auf die button klicke hat einer eine idee Public Class Form4 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim Tr ...

Verfasst am: 17.09.2011, 09:31 Aufrufe: 141

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) Handles cmdBerechnen.Click ...

Verfasst am: 26.08.2011, 11:20 Aufrufe: 467

Settings" speichert und wenn ich das Programm wieder starte, soll die Spalte (also die 4.) wieder angezeigt werden. Der Inhalt der List ist nicht wichtig. Ich hab schon im Internet gesucht, aber nichts hilfreiches gefunden. Bis jetzt habe ich das: Save: Private Sub btnSave_Click(sender As System.Object, e As System.EventArgs) Handles btnSave.Click Dim str As String = String.Empty ...

Verfasst am: 11.08.2011, 05:45 Aufrufe: 363

hallo guido65, danke für die schnelle antwort. hatte die frage noch in einem anderen forum gepostet und konnte das problem jetzt lösen. es lag an der formatierung der textdatei, die für meine zwecke expliziet im ASCII-code ausgegeben werden musste. file = My.Computer.FileSystem.OpenTextFileWriter(Hauptmenü.txtdateien.Text & dateiname & ".dxf", True, System.Text.Encoding.ASCII)

Verfasst am: 10.08.2011, 07:34 Aufrufe: 363

... ???!!! Kann sich jemand vorstellen was das sein könnten? Ideeen? Vielen Dank schonmal, Gruß Beppo DXF-Anfang einlesen: Public Sub dxfanfang(ByVal dateiname As String) 'dxf-anfang aus datei laden Dim dxfanfang As String dxfanfang = My.Computer.FileSystem.ReadAllText(Hauptmenü.txtdxf.Text & "dxf-anfang.txt") 'dxf-anfang schreiben My.Com ...

Verfasst am: 09.08.2011, 12:25 Aufrufe: 796

Nur dass es dort für OLE beschrieben war. Folgender Code: Public Sub MySQLwrite(ByRef ds As DataSet) Dim cb As MySqlCommandBuilder = New MySqlCommandBuilder(da) MySQLcnn.Open() da.Update(ds, "Produktcode") MySQLcnn.Close() End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Di ...

Verfasst am: 01.08.2011, 16:10 Aufrufe: 170

Ich habe folgendes Problem: Beim Ausführen der Methode "System.Console.SetCursorPosition(x, y)" wird eine IOExeption geworfen. (x & y sind vom Type integer) Fehlermeldungsbeschreibung: Titel: IOExeption wurde nicht behandelt. Text: Das Handle ist ungültig. Hinweis zur Fehlerbehebung: Deaktiviren sie das Konsolenfenster. Deteils: Ausnahme-Snapshot: ...System.IO.IOExeption:........{"Das ...

Verfasst am: 28.07.2011, 20:21 Aufrufe: 501

Hallo zusammen Ich habe folgendes Problem. Jedesmal wenn der "speichern" Button gedrückt wird, löscht es mir in der AccessDatenbank die Tabelle uebergaberapport. Kann mir wer helfen? Private Sub btn_speichern_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_speichern.Click Dim AccessDB As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Sourc ...

Verfasst am: 21.07.2011, 18:29 Aufrufe: 587

Hallo zusammen, ich will gerne mit Pfeilen eine Form (OvalShape) bewegen, gleichzeitig aber brauche ich auch einen Button. Das Ganze soll ein Spiel werden und mit dem Button gestartet werden, ggf. auch beendet. Steuern über Pfeile: Schritt 1 Protected Overrides Function isinputkey(ByVal keyData As System.Windows.Forms.Keys) As Boolean Select keyData Case Keys.Up, Keys.Down, ...

Verfasst am: 21.07.2011, 15:14 Aufrufe: 319

Ich will eine Datenbank "auslesen" und hab ich dabei an folgendem Tutorial orientiert: Der Source code lautet folgendermaßen Imports System.Data.OleDb Public Class Form1 Private Sub cmdAlleSehen_Click(...) Handles ... Dim con As New OleDbConnection Dim cmd As New OleDbCommand Dim reader As OleDbDataReader con.ConnectionString = &qu ...

Verfasst am: 20.07.2011, 16:09 Aufrufe: 643

Damit speichert VB die Daten aus der Textbox in bestimmte Zellen von Excel. Ich habe auch schon gegoogelt und folgenden Programmcode entdeckt: Visual Basic Quellcode Public Class Form1 Dim Test As New Microsoft.Office.Interop.Excel.Application Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Test.Workbooks.OpenXML("Der Pfad der date ...

Verfasst am: 19.07.2011, 18:27 Aufrufe: 543

net noch ein neuling so mein Problem... ich habe einen Server bei dem ich mit mehrer clients konekten will und vom Server aus an jeden client gleichzeitig daten senden kann Ich habe es hinbekommen das sich ein client konekten kann aber keine zwei oder drei=)... das wäre auf jedenfall mal mein code Imports System.Net.Sockets Imports System.IO Imports System.Net Imports System Imports System.Col ...

Verfasst am: 03.07.2011, 12:14 Aufrufe: 219

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: 25.06.2011, 13:01 Aufrufe: 350

... apeDrives zu bedienen und auch Backups zu machen was eben über die Win32 API läuft. Ich arbeite zur Zeit mit der VB 2010 Express Edition... Als erstes würde ich gerne mal die PrepareTape Funktion ausprobieren ob überhaupt was geht - Der Rest der Backupsoftware kommt dann später Wink

Dazu hab ich mal folgendes zusammengetragen: PrepareTape Function Private Sub Button12_Click(ByVal sender As System ...

Verfasst am: 22.06.2011, 22:10 Aufrufe: 305

D.h. solange Keyboard oder Maus genutzt wird, wird die Zeit erhöht. Es wäre auch eine Lösung, wenn man die Aktivität des Bildschirmschoners abfangen könnte. Habt ihr eine Idee für mich. Gruß Adelhorst Edit: Die MousePosition kann ich schon abfragen: Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer1.Tick Me.Button1.Text = MousePosition.ToString E ...

Verfasst am: 14.06.2011, 13:37 Aufrufe: 183

Hallo, ich möchte eine E-Mail mit einem Bild im Body versenden. Nutzen tue ich Visual Studio 2010 und Outlook 2003. Mit Outlook ließe sich eine Vorlage erstellen, falls sowas überhaupt benötigt wird. Hab mit "System.Net.Mail" auch schon eine "nur text" Mail versendet. Vielen Dank schonmal

Verfasst am: 09.06.2011, 12:22 Aufrufe: 320

Das funktioniert so lange, wie alle Bytes des Strings keinen ASCII-Wert > 128 haben. In diesem Fall scheint VB nicht ein, sondern zwei Bytes zu übertragen. Das dürfte wohl der Tatsache geschuldet sein, dass auf meinem System der Unicode verwendet wird, der auf der Gegenseite nicht bekannt ist. Ich suche verzweifelt eine Möglichkeit um auch wirklich je Zeichen in meinem String auch nur ein Byte zu übertragen. ...

Verfasst am: 31.05.2011, 13:44 Aufrufe: 335

probier mal ein do doEvents loop while WebBrowser1.Busy = True einzubauen... und zwar jedes mal bevor du die nächste seite aufrufen möchtest wenn dir das nicht reicht würde mir noch eine warteschleife in den sinn kommen system.threading.thread.sleep(5000) was halt unschön ist da die exe dann mehr oder weniger nicht reagiert variane 2 solle eigentlich in vb.net auch ...

Verfasst am: 24.05.2011, 12:13 Aufrufe: 724

office.interop.excel.dll neu zu registrieren, erscheint auch eine Fehler: "DLLRegisterServer-Eingangspunkt nicht gefunden". Hier meine Function: zunächst die Imports: Imports System Imports System.IO Imports Microsoft.Office.Interop Private Function ZellInhalt(ByVal XlsDatei As String, ByVal Zelle As String) As String Dim XL As New Excel.Application Dim XLWorkBooks As New Ex ...

Verfasst am: 24.05.2011, 06:23 Aufrufe: 545

************** Ausnahmetext ************** System.

Verfasst am: 21.05.2011, 15:46 Aufrufe: 693

Hallo, mit folgendem Code lasse ich Dateien aus einem Ordner in einer Listview anzeigen: Hier der Code: Dim dlgFolderOpen As New FolderBrowserDialog() If dlgFolderOpen.ShowDialog() = DialogResult.OK Then Dim Auswahl As String = dlgFolderOpen.SelectedPath Dim directory As New System.IO.DirectoryInfo(Auswahl) For Each Datei As System.IO.Fil ...

Verfasst am: 02.05.2011, 16:25 Aufrufe: 647

... d einem OnPaint-Event - In jedem Tick des Timers soll das OnPaint-Ereignis in der Klasse ausgelöst werden um etwas auf das Formular zu zeichen, das die Klasse benutzt - Dafür Erbe ich von der Class Control Public Class TestKlasse Inherits Control Private Sub timer_Tick() Invalidate() End Sub Protected Overrides Sub OnPaint(ByVal e As System ...

Verfasst am: 20.04.2011, 23:50 Aufrufe: 300

ShowDialog = Windows.Forms.DialogResult.OK Then 'Versuche den Ordner zu erstellen, könnte ja sein das das nicht geht Try 'Exemplarischer String für den Unterordner str_Folder = obj_Folder.SelectedPath & "\Dein Unterdner" 'Erzeuge den Ordner System.IO.Directory.CreateDirectory(str_Folder) 'Mache eine Datei auf Dim obj_Stream As New S ...

Verfasst am: 20.04.2011, 20:59 Aufrufe: 2003

können hinzugefügt werden - Für Faule ist es möglich sich eine Anzahl an Leveln generieren zu lassen - DLL Plug-In System für neue Editoren Ich hab sicher etwas vergessen aber ich hoffe das reicht erst mal! Verwendete Programmiersprache: VB6 Systemanforderungen: Soweit noch nicht bekannt, da ich auf einem Sixcore fahre! Erfahrungswerte von Euch würden mir da sehr helfen! Auflösung ist aber minimum 102 ...

Verfasst am: 25.03.2011, 00:11 Aufrufe: 672

Imports System.IO Imports System.Net Imports System.ComponentModel Public Class Form1 Dim watch As Long Private th As BackgroundWorker Dim speed1 As Long = 0 Dim speed2 As Long = 0 Dim Temp As String = Environment.GetEnvironmentVariable("Temp") Dim Patcherver As String = "1.0" Dim MyPfad As String = Path.GetDirectoryName(Application.Executa ...

Verfasst am: 21.03.2011, 07:13 Aufrufe: 403

ganz einfach gehalten 'aufgerufen wird die ganz einfach mit Wait() oder Call Wait() Call Wait() 'jetzt ist hier der haltepunkt bis CPU.M(100,3) auf True Springt 'dann gehts weiter im Quelltext msgbox "CPU.M(100,3) = True", vbInformation, "MSGBOX" End Sub Private Sub Wait() 'eine Neue Prozedur do DoEvents 'dass das syst ...

Verfasst am: 18.03.2011, 23:01 Aufrufe: 640

Du könntest das Bewegen auch in einer Dauerschleife (mit geeignetem Abbruch-Kriterium) bewerkstelligen. Und zum ausbremsen kannst du z.B.: System.Threading.Thread.Sleep(300) (entspricht einer Wartezeit von 300 ms) in die Schleife mit aufnehmen.

Verfasst am: 18.03.2011, 13:15 Aufrufe: 241

... nction End Class Public Class Template Public Function Builder() As List(Of Control) Dim GI As GeneralInformation = New GeneralInformation Dim value As List(Of Control) = New List(Of Control) value.Add(GI.txtProjectNumber) Return value End Function End Class Public Class Add_Project Private Sub Page_Init(ByVal sender As Object, ByVal e As System ...

Verfasst am: 17.03.2011, 14:56 Aufrufe: 490

ReadToEnd 'Die Datei komplett einlesen 'Wenn das fertig ist, den Filestream und den reader wieder schließen w.Close() fs.Close() 'Wir erstellen ein Array aus allen Zeilen, indem wir den String an jeder neuen Zeile splitten Dim loadarray As Array = Var1.Split(New String() {System.Environment.NewLine}, StringSplitOptions.RemoveEmpt ...

Verfasst am: 17.03.2011, 13:14 Aufrufe: 490

... "length" ist kein Member von "String" "Var1LastIndexOf" wurde nicht deklariert. Wo und was muss ändern? LG MarkOH Sry da waren ein paar Tippfehler drinn, habs nochmal editiert kannst es wieder versuchen. Achso und du musst, um Dateien einlesen zu können erst noch die Methode importieren, also diese Zeile noch vor "Public Class..." einfügen Imports System ...

Verfasst am: 17.03.2011, 12:24 Aufrufe: 490

ReadToEnd 'Die Datei komplett einlesen 'Wenn das fertig ist, den Filestream und den reader wieder schließen w.Close() fs.Close() Jetzt müssen wir nach deinen Zeilen suchen: 'Wir erstellen ein Array aus allen Zeilen, indem wir den String an jeder neuen Zeile splitten Dim loadarray As Array = Var1.Split(New String() {System.Environment. ...

Verfasst am: 17.03.2011, 12:03 Aufrufe: 690

Also hab ich mir jetzt überlegt für jeden Job einen eigenen Worker zu erstellen, nach ein wenig Recherche habe ich herausgefunden, dass man sowas gut mit backgroundworkern machen kann. Also will ich jetzt für jeden Job einen eigenen Backgroundworker erstellen und daran scheiterts im Moment. Habe bisher folgeden Code: Dim MyBGW() As System.ComponentModel.BackgroundWorker Die backgroundworker sollen ...

Verfasst am: 07.03.2011, 15:11 Aufrufe: 384

hi du meinst wahrscheinlich eher c++ Wink

unterschiede vb.net ist langsamer als c++ c++ kann sehr tief ins system eingreifen , hardwareprogrammierung alle progs die man so kennt windows, nero, vlc player, ... alles mit c++ geschrieben vb.net ist sehr einfach zu lernen wenn ich, wie ich vor etwa 6 jahren gewusst hätte was ich jetzt weis, würde ich mich für c++ entscheiden und die sprache lernen auch we ...

Verfasst am: 27.02.2011, 20:57 Aufrufe: 377

Hey, Ich wollte euch mal die Public Version vom EnergyInstantMessenger Vorstellen: Beschreibung: Das ist die EnergyInstantMessenger Version nur zum Selber Hosten. Features: - Public Chat - Privat Chat - ID System - Freundesliste Screenshot: Verwendete Programmiersprache: VisualBasic 2010 Systemanforderungen: NET Framework 2.0 Download: Version 1.4a Mirror 1: http://www.wu ...

Verfasst am: 26.02.2011, 09:16 Aufrufe: 380

Das Anzeigen von Bildern geht (siehe Code Button7)... will ich aber das Live-Video anzeigen kommt die Fehlermeldung "Videostream - unbekannter Dateityp" (siehe Code Button1). Auszug aus dem Codexxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click ...

Verfasst am: 23.02.2011, 19:56 Aufrufe: 427

Ich kenne mich mit VBS leider noch nicht so gut aus, d. h. ich muss es noch richtig erlernen. Jetzt wollte ich aber fragen, ob mir jemand was programmieren könnte? Hier der Code der graphischen Oberfläche: Public Class Form1 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load End Sub Private Sub TextBox1_TextChanged(ByVal sender As System.O ...