Visual Basic Forum

Verfasst am: 07.02.2012, 21:33 Aufrufe: 24

Die DataCombo ist mit einem weiteren ADO Steuerelement (Adodc2) gebunden. Adodc2 greift auf dieselbe Tabelle zu: Adodc2.RecordSource = "SELECT DISTINCT Wohnort FROM Adressen ORDER BY Wohnort" War das Update erfolgreich, soll Adodc2 -und damit auch die DataCombo- aktualisiert werden: Private Sub Adodc1_RecordChangeComplete(ByVal adReason As ADODB.EventReasonEnum, ByVal cRecords As Long, By ...

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: 25.01.2012, 08:45 Aufrufe: 121

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: 20.12.2011, 10:22 Aufrufe: 72

Microsoft VBScript compilation error '800a03ee' Expected ')' BackupCleanUp.vbs, line 18 Private Function ParseDate (ByVal DateString As String, _ ByVal DatePattern As String) As Date Bitte helfen! / Please help!

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

Sobald die Bälle in Ruhe sind und z.b "Aufeinander" liegen. Sinken sie langsam runter. Ich kann es da nicht so einfach Lösen wie mit dem Border. Seht selbst: Hier das Gesamte Projekt zum Download: Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick Dim aN As Single Dim bN As Single Render.Refre ...

Verfasst am: 02.11.2011, 20:54 Aufrufe: 289

... man jetzt einfach 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 ...

Verfasst am: 19.10.2011, 09:48 Aufrufe: 335

der code lässt sich auch ausführen, doch kommt dann eine SteckOverflowException beim erstellen einer New Zedgraph.PointPairList wie gebe ich meinem BackgroundWorker die dll mit? Wie gesagt wenn ich den Code im HauptThread ausführe funktioniert dieser ohne Probleme Public Function calc_fractions(ByVal group As group, ByRef mes As messurement) As List(Of dataFraction) If group.channe ...

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: 30.08.2011, 15:41 Aufrufe: 432

Deklaration in C++: typedef long (__stdcall *GETBLOCKDATABYINDEX) (const unsigned long BufferIdx, const unsigned long dwStart, const unsigned long dwNbrOfBlocks, void* pData); in VB6 deklariere ich wie folgt: Private Declare Function GetBlockDataByIndex Lib "meine.dll" (ByVal BufferIdx As Long, ByVal dwStart As Long, ByVal NbrOfSamples As Long, ByVal pData As Byte) As ...

Verfasst am: 10.08.2011, 07:34 Aufrufe: 363

Die Dateien haben dann exakt den gleichen Inhalt und trotzdem geht die ursprüngliche Datei nicht und DXF-Dateien sind doch nur Text-Dateien .... ???!!! 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 dxfan ...

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: 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: 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: 20.07.2011, 13:19 Aufrufe: 703

hi ja kein problem... Private Declare Function SetCursorPos Lib "user32.dll" _ (ByVal x As Long, ByVal y As Long) As Long Private Sub SetCur2Lbl() Dim xTop As Long Dim xLeft As Long With lblStart xTop = Me.Top + .Top + (.Height / 2) xLeft = Me.Left + .Left + (.Width / 2) xTop = xTop / Screen.TwipsPerPixelX xLeft = xLeft / Screen.Twi ...

Verfasst am: 19.07.2011, 18:27 Aufrufe: 543

... mw 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(ByVal ...

Verfasst am: 13.07.2011, 17:33 Aufrufe: 450

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.06.2011, 13:30 Aufrufe: 350

Long durch Integer ersetzt, damit es den Konventionen entspricht Public Declare Function PrepareTape Lib "kernel32" (ByVal hDevice As Integer, ByVal dwOperation As Integer, ByVal bimmediate As Integer) As Integer Ändert aber nicht wirklich was Wink

Verfasst am: 25.06.2011, 13:01 Aufrufe: 350

... zu schreiben um TapeDrives 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 ...

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: 20.06.2011, 05:33 Aufrufe: 370

Enabled = False ' Port 12345 soll abgehört werden Winsock1.LocalPort = 12345 ' Abhör-Vorgang starten Winsock1.Listen End Sub ' Wenn ein Computer versucht eine Verbindung mit dem ' Server aufzubauen Private Sub Winsock1_ConnectionRequest( _ ByVal requestID As Long) ' Das Abhören wird beendet Winsock1.Close ' Die Verbindung wird akzeptiert Winsock1.Accept requestID ' C ...

Verfasst am: 14.06.2011, 21:25 Aufrufe: 325

deshalb +1 somit wird es 1 - 26 * Rnd und eben wieder + 65 dass die zahl wieder zwischen 65 und 90 ist aber wenn dir die funktion zu umständlich ist dann könntest du eine etwas längere einfacher verständliche funktion verwenden Public Function RandomWord(ByVal wLen As Integer) As String Dim abc As String Dim i As Integer Dim sWord As String abc = "ABCDEFGHIJKLMNOPQRSTUVWXYZ" ...

Verfasst am: 10.06.2011, 14:15 Aufrufe: 490

Das hier ist der Code (bitte verhaut mich nicht): ------------------------------------------------------------------------------- Public Class schroeders_klasse Public Function schroeders_funktion(ByVal var_zahl_01 As Integer, _ ByVal var_zahl_02 As Integer) schroeders_funktion = var_zahl_01 + var_zahl_02 ...

Verfasst am: 07.06.2011, 16:53 Aufrufe: 468

... ch für meinen Downloader einen Code, der die Download Zeit berechnet und der den Download pausieren und ihn danach auch wieder weiterlaufen lässt. Vielleicht kann euch das hier ja weiterhelfen, denn dies sind die momentanen Codes für (Die Download-Geschwindigkeit,Status,Weite und Link), so ähnlich könnte dann ja auch vielleicht der Code für den Download Dauer Berechner aussehen: Public Sub ChangeTexts(ByVal ...

Verfasst am: 24.05.2011, 12:33 Aufrufe: 724

Danke, aber bin selbst drauf gekommen, mit Hilfe einer F&A hier. Private Function ZellInhalt(ByVal XlsDatei As String, ByVal Zelle As String) As String Dim XL As New Excel.Application Dim WB As Excel.Workbook Dim WS As Excel.Worksheet Dim z As Integer Dim wbk As String ' Excel öffnen On Error Resume Next XL = GetObject(, "Excel.Ap ...

Verfasst am: 24.05.2011, 12:13 Aufrufe: 724

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 Excel.Workbook 'hier wird der Fehler verursacht Dim XLWorkSheet As New Excel.Worksheet Dim z As Integer Di ...

Verfasst am: 02.05.2011, 16:25 Aufrufe: 647

... nem Timer und 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 ...

Verfasst am: 25.03.2011, 00:11 Aufrufe: 672

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.ExecutablePath) Private Sub Button2_Click(By ...

Verfasst am: 18.03.2011, 13:15 Aufrufe: 241

... Return _ProjectNumber End Function 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 ...

Verfasst am: 17.03.2011, 12:03 Aufrufe: 690

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 erstellt und gestartet werden, indem man auf einen Button klickt: Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click ...

Verfasst am: 04.03.2011, 09:25 Aufrufe: 470

Mein Problem ist nur, das immer nur eine Verbindung zur letzten IP aufgebaut wird :/ Hier mein Code Sub Form_Load() VerbindungHerstellen("192.168.0.1") VerbindungHerstellen("192.168.0.2") End Sub Private Sub VerbindungHerstellen(ByVal Ip As String) Debug.Print "Verbindung zu " & Ip & " soll aufgebaut werden..." Win ...

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

Verfasst am: 15.02.2011, 14:24 Aufrufe: 859

Parameters: refCancel = Integer User must assign this parameter to 1 to abort process. Nun meine Frage: Wie muss ich den RefVal refcancel definieren? Mein Code sieht so aus: Private WithEvents CodesoftApplication As LabelManager2.Application = Nothing Private WithEvents MyActiveDocument As LabelManager2.Document = Nothing Private Sub LblDruck_Click(ByVal sender As System.Object, ByVal e As System.E ...

Verfasst am: 08.02.2011, 14:51 Aufrufe: 531

.. ich würde dir aber empfehlen dafür eine funktion zu schreiben... die ist einfacher zu verstehen und kann acuh einfacher angewendet werden beispiel: Private Function Eur2US(ByVal Euro As Double, Optional Wechselkurs As Double = 1.35) As Double 'in der ersten zeile hast du alle variablen definiert die du brauchst 'Euro, Wechselkurs und Eur2US 'Optional Wechselkurs = 1.35 hat den grund ... ...

Verfasst am: 06.02.2011, 16:04 Aufrufe: 326

hi ich hab leider nicht so ganz verstanden was du möchtest? möchtest du dass auf deinem loginformular - Benutzer der angemeldete benutzer des PC steht? private Declare Function GetUserName Lib "advapi32.dll" _ Alias "GetUserNameA" ( _ ByVal lpBuffer As String, _ nSize As Long) As Long dim user as str getusername user,len(user) form1.txt_user.text = user ...

Verfasst am: 15.01.2011, 17:49 Aufrufe: 514

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.01.2011, 10:35 Aufrufe: 637

mach das mit focus geht bei checkbox und radiobutton: WebBrowser1.Document.GetElementById("id_der_checkbox").Focus() SendKeys.Send(" ") und für radiobutton: fPrivate Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged If RadioButton1.Checked = True Then If RadioButton2.C ...

Verfasst am: 31.12.2010, 13:46 Aufrufe: 637

Hi hab mal ne Frage wie ich das mit der checkbox hinkrieg hab shcon alles bis auf die beiden checkboxen http://www.spin.de bei der Registrierung bin so weit gekommen bis jz funzt auch alles aber wie gesagt brauch nur noch die beiden checkboxen besaetigen aber keine ahnung wie hab schon ganze zeit gegoogelt aber nichts gefunden Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.Eve ...

Verfasst am: 22.12.2010, 13:01 Aufrufe: 778

... ich die Entwicklung einer Einmalanlage unter berücksichtigung einiger Renditen darstellen soll. Nun habe ich mich mal hingesetzt und das Programm soweit geschrieben, wie es meine Kenntnisse zugelassen haben. Hier ist der Code: Partial Public Class MainPage Inherits UserControl Public Sub New() InitializeComponent() End Sub Private Sub TextBox1_KeyUp(ByVal ...

Verfasst am: 16.12.2010, 19:52 Aufrufe: 845

NET keine AutoRedraw-Funktion mehr. Das heißt Du wirst in den sauren Apfel beißen müssen. Du mußt den ganzen Kram erst in eine virtuelle Bitmap zeichnen. Und auf das Repaint-Ereignis der Form lädst Du die Bitmap aus dem Speicher auf die Form: Public Class Form1 Dim g As Graphics Dim Buffer As Bitmap Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bu ...

Verfasst am: 16.12.2010, 19:36 Aufrufe: 474

Verwende ich die Funktion DrawFocusRect allerdings auf dem DeviceContext des Desktop (genau wie es ja bei der DrawReversibleFrame-Funktion ja üblich ist) so ruckelt der Rahmen bei Bewegung des Mauszeigers (im selbstgebastelten Drag-Modus). Hier der Test-Quelltext: Imports System.Drawing Public Class Form1 Dim Block As clBlock Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System ...

Verfasst am: 14.12.2010, 19:11 Aufrufe: 505

Verfasst am: 14.12.2010, 10:47 Aufrufe: 362

width =< picture2.left + Picture2.width then Msgbox "Crash" end if end sub Private Form1_Keydown(byval keycode as integer) 'oder wie auch immer if keycode = vbkeyright 'Pfeil rechts wenn ich mich nicht irre then Timer1.Enabled = True end if end sub Private Form1_Keyup(byval keycode as integer) 'oder wie auch immer Timer1.Enabled = Fa ...