Visual Basic Forum

Verfasst am: 04.04.2012, 08:09 Aufrufe: 388

hat jemand nen Snippet? Mein vorher geschriebener Code Imports System.Security.Cryptography Imports System.Text Public Class Form1 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load End Sub Public Function SHA1StringHash(ByVal strString As String) As String Dim SHA1 As New SHA1CryptoServiceProvider Dim Data As Byte&# ...

Verfasst am: 17.01.2012, 08:19 Aufrufe: 224

mit load konnte man unter vb6 steuerelemente laden... wird in vb.net nicht viel anders sein vl hilft dir das also nach "steuerelemente in der laufzeit laden" googlen oder so lg Deepack

Verfasst am: 06.01.2012, 04:55 Aufrufe: 2690

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: 19.07.2011, 19:27 Aufrufe: 628

... Dim streamw As StreamWriter Dim streamr As StreamReader End Structure Dim Server As TcpListener Dim client As New TcpClient Dim ipendpoint As IPEndPoint = New IPEndPoint(IPAddress.Any, 4000) Dim funktion As String() Dim mainthread As Threading.Thread Dim list As New List(Of Connection) '______________ Private Sub Form1_Load ...

Verfasst am: 13.07.2011, 18:33 Aufrufe: 526

Hi, würde gerne eine Schleife bauen für den folgenden Code: Public Function funcLoadLanguage(ByVal varLang As String) Dim varXDoc As XDocument = XDocument.Load(Application.StartupPath & "\lang-" & varLang & ".

Verfasst am: 25.03.2011, 01:11 Aufrufe: 1244

Click Call DownloadItem("http://****-********.

Verfasst am: 23.02.2011, 20:56 Aufrufe: 497

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 ...

Verfasst am: 08.02.2011, 09:32 Aufrufe: 1295

See if the color of your website matches the theme of your website. The color of the images used in the website should match the theme as well. The pictures used should be properly enhanced so that it loads quickly. Web users will run away from slow loading web pages rather than wait for it to load. Most professional website templates are not optimized for search engines because it is not the job of a designer ...

Verfasst am: 06.02.2011, 16:47 Aufrufe: 375

Verfasst am: 02.02.2011, 00:18 Aufrufe: 640

... Private mYPos As Integer ' FocusRect Private fZeichnen As Boolean Private NR As RECT Dim bNr As RECT Dim OldNR As RECT ' Diverse Public aktivesWerkzeug As Integer ' 1 = Pfeil, 2 = Button-Werkzeug Private buttonCounter As Integer ' Zähler für erstellte Schaltflächen, 1.Button = 0 Private aktButton As Integer ' derzeitig gewählter Button Private Sub Form_Load ...

Verfasst am: 15.01.2011, 18:49 Aufrufe: 615

Später hatte ich das ding auch am laufen, doch ich habe das Projekt Falsch gespeichert und jetzt weiss ich nichtmehr was ich verändert hatte. Crying or Very sad

Hier der Code : Imports System.Net.Mail.MailMessage Imports System.Net.Mail Public Class Form1 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load End Sub Private Sub Button1_C ...

Verfasst am: 02.12.2010, 14:28 Aufrufe: 585

Verfasst am: 01.12.2010, 19:37 Aufrufe: 585

In diesem Pfad ist ein Dokument namens: Text.txt 1.: Den text dieses Dokuments will ich jetzt in einer Textbox direkt beim laden, also bei Form1.load stehen haben. 2.: Und wenn ich dann auf einen bestimmten Button drücke, wird der Text umgeändert, und die Textbox soll sofort wieder aktualisiert werden. Beim 2ten kann man ja auch direkt nach dem 'ändern'-code den code vom 1ten einfügen Wink

Danke im Vorraus: ...

Verfasst am: 10.11.2010, 20:53 Aufrufe: 713

GetFolderPath(Environment.SpecialFolder.DesktopDirectory) & "\textnew.txt", (Me.TextBox1.Text & Me.TextBox2.Text & vbNewLine), (Me.TextBox3.Text & vbNewLine)) End Sub Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim Text As String = Me.TextBox1.Text & Me.TextBox2.Text & vbNewLine & Me.TextBox3. ...

Verfasst am: 26.10.2010, 17:28 Aufrufe: 477

... ch zeigt Wink

danke! edit1Module modGlobal Public gcon_DB As OleDb.OleDbConnection = Nothing End Module Module modSystem Module modSystem Private Const gscModName As String = " form1 Public Class Form1 Dim dt As New DataTable Dim da As OleDb.OleDbDataAdapter Dim ds As New DataSet Dim dv As DataView Dim drv As DataRowView Private Sub Form1_Load ...

Verfasst am: 27.09.2010, 17:50 Aufrufe: 811

Verfasst am: 23.07.2010, 16:16 Aufrufe: 450

. Nun aber nicht wieder Entsperren ! Gibt es eine möglichkeit den hintergrund also desktop usw.. zu sperren ABER meine form nicht? Hier ist der code: Public Class Form1 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load End Sub Public Declare Function BlockInput Lib "user32" (ByVal fBlock As Long) As Long ...

Verfasst am: 07.07.2010, 20:15 Aufrufe: 366

Wenn ich den wieder freigeben will muss ich ebenfalls ein anderes pw eingeben. Die maus und tastatur darf aber nicht in der Form gesperrt sein. Und genau da liegt mein problem! Ich kriege es nur hin das maús und tastatur gesperrt sind aber nicht das mit dem desktop Bitte helft mir! Souce code: Public Class Form1 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Ha ...

Verfasst am: 09.06.2010, 20:51 Aufrufe: 970

... Dim prozessbuffer As String Dim readbuffer As String Dim taskmgrbuffer As String Dim adresse As String Dim port As Integer = 4000 Dim stream As NetworkStream Dim Server As TcpListener Public client As New TcpClient Dim ipendpoint As IPEndPoint = New IPEndPoint(IPAddress.Any, 4000) Dim readThread As Threading.Thread Private Sub Form1_Load ...

Verfasst am: 05.02.2010, 09:09 Aufrufe: 491

.

Im Moment ist die "beste" Variante für mich folgende (leider auch nicht automatsiert, aber immerhin etwas schlanker): Dim f(10) As Form Private Sub Cmd_Aufruf_Click(Index As Integer) Load f(Index) f(Index).Show End Sub Private Sub Form_Load() 'Deklaration der Formnamen an einer zentralen Stelle - Eingabe leider per Hand Set f(0) ...

Verfasst am: 04.02.2010, 12:16 Aufrufe: 491

Verienfacht geschgildert gibt e ein Startformular (frmStart) von dem aus ich die anderen Formuare aufrufen will. Die anderen Formulare heißen frm0, frm1, frm2, frm3, frm4... Der Aufruf erfolgt über indizierte Buttons. Ich weiß also das wievielte (Index) Formular ich aufrufen will (z.B. das fünfte Formular -> frm5). Bisher habe ich das so realisiert: Select Case Index Case 0 Load frm0 frm0.show ...

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: 30.12.2009, 17:48 Aufrufe: 1202

... e", conn) Dim da_TischeVerwendung As New SqlDataAdapter("Select * from tblTischVerw", conn) Dim dt_Tische As New DataTable("tblTische") Dim dt_TischeVerwendung As New DataTable("tblTischVerw") Private bs_Tische As New BindingSource() Dim cmd As New SqlCommandBuilder(da_Tische) 'Wichtig für update, insert und delete Private Sub Tisch_Anlegen_Load ...

Verfasst am: 30.12.2009, 11:55 Aufrufe: 1202

Bein Klick auf den Button "Anlegen" erhalte ich folgende Fehlermeldung (Siehe Notiz am Quellcode Form 2) ArgumentExeption wurde nicht behandelt Dies führt dazu, dass sich zwei Bindungen der Auflistung an dieselbe Eigenschaft binden. Parametername: binding Hier der bisherige Code. --- Form 1 --------------- Public Class Start Private Sub Form1_Load(ByVal sender As System.Object, ByVal ...

Verfasst am: 15.12.2009, 08:39 Aufrufe: 466

hey na das is ja klar du kannst ja nicht hellsehen oder? wenn du auf den button drückst bist du immer eine rechnung hinten nach! du musst das also umdrehen in der form load Randomize zahl1 = Int(Rnd * 100) + 1 zahl2 = Int(Rnd * 100) + 1 erg = zahl1 + zahl2 lb_aufgabe = CStr(zahl1) + " + " + CStr(zahl2) somit steht eine Rechnung drin die du ausrechnen ...

Verfasst am: 23.11.2009, 14:52 Aufrufe: 493

Start("C:\Users\Hüseyin\Desktop\Infosystem\Mitarbeiter1.xls") End Sub Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.

Verfasst am: 22.11.2009, 22:27 Aufrufe: 1136

status = TextBox4.Text Dim FileNum As Integer FileNum = FreeFile() FileOpen(FileNum, "user.dat", OpenMode.Random) 'Write the record to the file FilePut(FileNum, User) FileClose(FileNum) End Sub Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load ...

Verfasst am: 19.11.2009, 17:16 Aufrufe: 942

Visual Basic: Imports System.Threading Imports WindowsApplication1.modFunktionen Public Class frmMain Private strTempLinks As String Private strTempMails As String Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load End Sub <br&g ...

Verfasst am: 18.11.2009, 09:30 Aufrufe: 814

Hallo Ja, ist eine Eigenart von VB6, passiert mir auch öffters. Ich lös es immer indem ich ein unsichtbares Formular lade und dann wieder entlade. Load frmTmp Unload frmTmp Einfach eine neue Form die Visible = false ist In deinem Fall also Private Sub Anzeige() lbl_Zubereitung.Caption = "Beispieltext" 'Erst TEXT ANZEIGEN Load frmTmp Unload frm ...

Verfasst am: 12.11.2009, 18:17 Aufrufe: 860

GetResponseStream() Dim reader As New StreamReader(DataStream) Dim ServerResponse As String = reader.ReadToEnd() reader.Close() DataStream.Close() Response.Close() TextBox2.Text = ServerResponse End Function Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) ...

Verfasst am: 25.10.2009, 16:33 Aufrufe: 770

Hallo! Ich möchte ein Programm entwickeln, das mich nach der Passwort/User Eingabe in ein phpbb3 Forum einloggt. Soweit bin ich schon: Public Class Form1 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load WebBrowser1.ScriptErrorsSuppressed = True WebBrowser1.Navigate("http://weltrekord.phpbb8.de/ucp.php?mode=login") ...

Verfasst am: 25.10.2009, 14:31 Aufrufe: 6627

Habe mir schon so ziemlich viel über Webrequest durchgelesen, aber nirgendwo wurde das setzen von Cookies richtig gut beschrieben. So weit bin ich bisher: Imports System.IO, System.Net, System.Text Public Class Form1 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 'Webrequest starten auf die Login Site von Web.de Dim Request As H ...

Verfasst am: 13.07.2009, 08:55 Aufrufe: 1798

Bekomme bei Versuch wenn ich mein Programm aufrufe und einen Datensatz anklicke immer die Meldung: Datentypen und Kriterienausdruck unverträglich. Kann mir da jemand helfen?! Imports System.IO Public Class frm0802 Dim con As New OleDb.OleDbConnection Dim cmd As New OleDb.OleDbCommand Dim reader As OleDb.OleDbDataReader Dim pnummer As New ArrayList Private Sub frm0802_Load(ByVal sender ...

Verfasst am: 10.07.2009, 17:51 Aufrufe: 447

Nun lautet meine Frage was kann ich mit den 2 Objekten alles machen und wie kann ich es in meinem Datumsrechner (Erste Anwendung überhaupt im Buch) einbauen. Partial Public Class _Default Inherits System.Web.UI.Page Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load End Sub Protected Sub btnSubmit_Click(ByVal sender As Object, ByVal e ...

Verfasst am: 05.07.2009, 20:39 Aufrufe: 1917

Beschreibung: Dieser Tipp zeigt, wie man zur Laufzeit Tabs zu einem TabControl hinzufügen und diese auch wieder entfernen kann. Funktion: Visual Basic: Beispielprojekt: http://www.activevb.de/tipps/vbnetdownloads/tipp0057.zip Quelle: activevb.de

Verfasst am: 01.07.2009, 15:10 Aufrufe: 1985

Klicken Sie auf Start und auf Ausführen, geben Sie regsvr32 VB6IDEMouseWheelAddin.dll ein, und klicken Sie anschließend auf OK. 3. Starten Sie Visual Basic 6.0. 4. Klicken Sie auf Add-Ins, und dann auf Add-in Manager. 5. In der Liste Add-in Manager, klicken Sie auf MouseWheel Fix. 6. Aktivieren Sie das Kontrollkästchen Loaded/Unloaded, und dann das Kontrollkästchen Load on Startup. 7. Klicken Sie auf OK. Hoffentlich ...

Verfasst am: 29.06.2009, 15:26 Aufrufe: 1459

Beschreibung:Mit der Funktion kann damit einige Fenstereffekte erzeugen. U.a. Einfaden, Ausfaden, Schieben, Rollen... Falls der Effekt nicht mit der Windows-Version kompatibel ist, oder ein anderer Fehler auftritt, wird die Form trotzdem ein-/ausgeblendet. Genauere Beschreibung zur Handhabung im Quellcode.Funktion:Visual Basic: Beschreibung der Parameter:Fenster: die Form die animiert werden sollArt:EINBLENDEN: Fenst ...

Verfasst am: 29.06.2009, 15:15 Aufrufe: 1372

Mit .NET brachte Microsoft den heiligen Gral des Mutlithreadings zu den VB Programmierern. Bis dahin mußten wir uns mit DoEvents vor UI Lockups bewahren, oder noch schlimmer Out Of Process ActiveX-Exen programmieren um diese zu verhinden. Programmieren mit Threads bringt jedoch neue Probleme mit sich wie Deadlocks, nicht mehr ansprechbare Controls da diese in einem anderen Thread laufen usw.Dieses kleine VB.NET 2005 ...

Verfasst am: 25.06.2009, 09:16 Aufrufe: 381

Value = 10 Then My.Computer.FileSystem.WriteAllText("C:\dateiname.txt", TextBox1.Text, True) End If End sub Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Timer1.Start() End Sub End Class edoch wird mir( wenn ich debugge) folgendes angezeigt : Der Wert 91 ist für Value ungültig. Value sollte ...

Verfasst am: 25.06.2009, 02:35 Aufrufe: 650

... xt_strasse, txt_plz, txt_ort, txt_telefon, txt_mobil, txt_email, sollten nicht keine oder alle felder NICHT gefüllt sein soll eine entsprechende Information erscheinen, dass diese Felder ausgefüllt werden sollen. beim klick auf einen befehlsbutton "speichern", sollen die informationen in der "absender.ini" datei überschrieben oder ergänzt werden. Private Sub Hauptmenue_Load ...

Verfasst am: 21.06.2009, 19:41 Aufrufe: 1141

Kann das richtig sein ? Gruß Würzie Public Class frm Declare Function GetPixel Lib "gdi32.dll" ( _ ByVal hdc As System.Windows.Forms.PictureBox, _ ByVal nXPos As Long, _ ByVal nYPos As Long) As Long Private Sub frm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load pb.ImageLocation = "C:/Dokumente und ...

Verfasst am: 21.06.2009, 16:32 Aufrufe: 1141

Ich möchte den Pixelwert des Bildes der PictureBox an der stelle 100, 100 auslesen. Meine PictureBox lautet pb. Ich habe hier schon gesucht, komme aber mit den Lösungen nicht weiter. Public Class frm Declare Function GetPixel Lib "gdi32.dll" ( _ ByVal hdc As Long, _ ByVal nXPos As Long, _ ByVal nYPos As Long) As Long Private Sub frm_Load(ByVal sender As Sy ...

Verfasst am: 15.06.2009, 18:43 Aufrufe: 2839

andere .NET Sprachen langsam interessant. Für größere Projekte wird Visual Basic .NET häufiger verwendet. Ein bekanntes Beispiel in der Scene wäre da zum Beispiel der Rapidshare Download Manager "Cryptload" (www.cryptload.info). Für kleinere Projekte reicht VB6 momentan voll aus. Ausserdem sind die Visual basic 6 Runtime Dateien seit Windows XP auf jedem Rechner installiert, sodass nur benutzte Steuerelemente mitgel ...

Verfasst am: 15.06.2009, 16:51 Aufrufe: 685

... &HF8 ' EXSEL-Taste Private Const VK_EREOF = &HF9 ' EREOF-Taste Private Const VK_PLAY = &HFA ' PLAY-Taste Private Const VK_ZOOM = &HFB ' ZOOM-Taste Private Const VK_NONAME = &HFC ' NONAME-Taste Private Const VK_PA1 = &HFD ' PA1-Taste Private Const VK_OEM_CLEAR = &HFE ' OEM_CLEAR-Taste Dim mouseOffset As Point Private Sub Form1_Load ...

Verfasst am: 15.06.2009, 13:38 Aufrufe: 685

Jetzt habe ich mir schon ein paar KeyLogger angeschaut, aber so richtig weitergekommen bin ich damit noch nicht ... Public Class MainScreen Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) Private Sub Form1_Load(ByVal sender As System.Object ...

Verfasst am: 15.06.2009, 12:15 Aufrufe: 2133

Dieses Array können wir dann erweitern wie wir wollen, oder auch Einträge wieder rauslöschen.Um ein Array anzulegen braucht ihr nur bei einem Eurer Einträge bei dem Punkt Index: eine Null hineinschreiben.Den Eintrag mit dem Index 0 nenne ich jetzt einfach mal „List1_men“.Um das Array zu erweitern brauchen wir jetzt diesen Code:Load List1_men(1) List1_men.Caption = “List2”In der ersten Zeile legen w ...

Verfasst am: 13.06.2009, 13:56 Aufrufe: 1619

Diese ListView hat die Eigenschaften ".View = View.Details" und ".FullRowSelect = True". Beim _Load Event der Applikation werden die Columns erstellt: With ListView1.Columns .Add("Tag") .Add("Stunden") .Add("Kommentar", 202) End With Nun lasse ich in der Spalte "Tag" die 31 Tage eines M ...

Verfasst am: 17.05.2009, 12:07 Aufrufe: 732

... lpszReturnString As String, ByVal cchReturnLength As Long, ByVal hwndCallback As Long) As Long Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing mciSendString("stop MyMP3", 0, 0, 0) mciSendString("close MyMP3", 0, 0, 0) End Sub Private Sub Form1_Load ...

Verfasst am: 12.05.2009, 19:51 Aufrufe: 816

Hallo, ich habe ein Problem mit meinem Builder. Ich arbeite nach folgendem Code: BUILDER Public Class Form1 Dim options As New Compatibility.VB6.FixedLengthString(100) Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load My.Computer.FileSystem.CopyFile _ (My.Application.Info.DirectoryPath & &q ...

Verfasst am: 02.05.2009, 19:02 Aufrufe: 820

Value = 100 MsgBox("GhostWriter erfolgreich erstellt", MsgBoxStyle.Information, "Erstellt") End Sub End Class Stub Source: Public Class Form1 Dim file As String Dim cmd() As String Dim options As New Compatibility.VB6.FixedLengthString(100) Dim counter As Integer = 0 Private Sub Form1_Load(ByVal sender As System.Object ...