Visual Basic Forum

Verfasst am: 12.05.2012, 06:43 Aufrufe: 50

ganz einfach Private Sub Picture1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) Picture2.BackColor = Picture1.Point(X, Y) End Sub

Verfasst am: 23.04.2012, 18:32 Aufrufe: 67

Proxy = Nothing requestStream = uploadRequest.GetRequestStream() fileStream = File.Open(open, FileMode.Open) Dim buffer(1024) As Byte Dim bytesRead As Integer While True bytesRead = fileStream.Read(buffer, 0, buffer.Length) If bytesRead = 0 Then Exit While ...

Verfasst am: 11.04.2012, 06:12 Aufrufe: 118

Hierzu mal mein Code soweit, dieser funktioniert auch (halbwegs) jedoch wird nicht jeder erneute Anschlag regestriert der die Progressbar während des Ladens zurücksetzen soll. Public Class Form1 Private Declare Function GetAsyncKeyState Lib "user32.dll" (ByVal vKey As Integer) As Short Dim Taste As Integer Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As ...

Verfasst am: 04.04.2012, 08:09 Aufrufe: 388

GetBytes(strString) Result = SHA1.ComputeHash(Data) For i As Integer = 0 To Result.Length - 1 Tmp = Hex(Result(i)) If Len(Tmp) = 1 Then Tmp = "0" & Tmp Res += Tmp Next Return Res End Function Public Function MD5StringHash(ByVal strString As String) As String Dim MD5 As New MD5CryptoServicePr ...

Verfasst am: 20.02.2012, 01:45 Aufrufe: 171

... tAfter As Int32, _ ByVal x As Int32, ByVal y As Int32, ByVal cx As Int32, ByVal cy As Int32, ByVal wFlags As Int32) As Int32 Private Const HWND_NOTOPMOST As Int32 = -2 Private Const SWP_SHOWWINDOW As Int32 = &H40 Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Integer ...

Verfasst am: 14.02.2012, 10:58 Aufrufe: 224

... reinschreiben! ich habe cmd mit dem Shell Befehl geöffnet und möchte dann mit dem Befehl sendkey etwas hineinschreiben! leider sagt cmd dann "Zugriff verweigert"! wie kann ich das umgehen bzw ausschalten? ich selber bin als administrator angemeldet weswegen ich denke dass cmd visual Basic nur als normalen Gastuser ansieht! Private Sub Command1_Click() Dim cmd As Long Dim std As Integer ...

Verfasst am: 30.01.2012, 11:32 Aufrufe: 590

hi ich werde dir hier an dieser stelle nochmals den index ans herz legen.... du hast eine textbox die beschrieben wird wenn das geschieht soll sich der checkbox value ändern Private Sub Text1_Change(Index as integer) if text1(Index).text <> "" then check1(index).Value = 1 else check1(index).value = 0 endif End SUb Wundersschön dynamisch und auf beliebig erweiterbar n ...

Verfasst am: 10.12.2011, 13:17 Aufrufe: 272

Hallo, ich bin Anfänger und habe ein kleines Consolen Programm geschrieben, möchte aber das die Variablen menge(Integer) und ergebnis(Double) rechtsbündig ausgegeben werden und zwar so das wenn sich der Wert von menge oder ergebnis ändert das heißt wenn der um eine Stelle größer wird z.B. von 22.99 auf 122.87 immer noch rechtsbündig bleibt. So in etwa ist der Code, wo muss ich was einfügen. Console.Write ...

Verfasst am: 12.11.2011, 19:47 Aufrufe: 349

Verfasst am: 06.11.2011, 18:42 Aufrufe: 574

Moinsen, eigentlich wollte ich nur einen String in einen Integer umwandeln, aber es scheint ja doch nicht ganz so einfach zu sein. Wink

Folgender Code klappt, er gibt mir als Ergebnis 124: Dim b b = CInt(123.6) Response.Write("b = " & b) Nun dachte ich mir, dass der Wert 123.6 doch auch durch eine Variable vom Typ String kommen könnte. Also probie ...

Verfasst am: 25.10.2011, 12:38 Aufrufe: 246

hi also man kann auch den ersten teil schöner gestalten.... Private Sub Command1_Click(Index As Integer) Select Case Text1.Text Case 1 : Command1(Index).Caption = "X" Text1.Text = "2" Command1(Index).Enabled = False Case 2: Command1(Index).Caption = "O" Text1.Text = "1&q ...

Verfasst am: 24.10.2011, 23:43 Aufrufe: 246

... c-Tac-Toe programmieren, dazu sollen wir (meine Klasse) jetzt schon (nach 6 Schulstunden) in der Lage zu sein. Ich habe soweit auch schon einen Code erstellt, der soweit auch funktioniert, ich habe aber einen Teil, den ich sowas von gar nicht toll finde, aber auch keine Ahnung habe, wie man ihn schöner bzw. übersichtlicher darstellen kann. So hier mal mein Code Private Sub Command1_Click(Index As Integer ...

Verfasst am: 19.10.2011, 11:42 Aufrufe: 317

.. 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: 19.10.2011, 10:48 Aufrufe: 453

... 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.channels.ContainsKey(mes.name) Then Dim temp As New ZedGraph.PointPairList Dim column As Integer ...

Verfasst am: 17.09.2011, 10:31 Aufrufe: 212

Click Dim Ergebnis1, Ergebnis2 As Integer Dim Ergebnis3, Ergebnis4, Ergebnis5, Ergebnis6, Ergebnis7, Ergebnis8, Ergebnis9, Ergebnis10 As Double 'Formate der Ergebnisse festlegen ' Ergebnis 1 = Umrechnung ein Mitarbeiter pro Woche ' Ergebnis 2 = Summe für alle Mitarbeiter pro Woche ' Ergebnis 3 = Stunden aus Ergebnis 2 ausrechnen ' Ergebnis 4 = Minuten aus Ergebnis 5 ausre ...

Verfasst am: 01.08.2011, 17:10 Aufrufe: 234

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: 25.06.2011, 14:30 Aufrufe: 668

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, 14:01 Aufrufe: 668

Inahlt des Moduls was ich dafür angelegt habe: Module ModulTape1 Public Declare Function PrepareTape Lib "kernel32" (ByVal hDevice As Integer, ByVal dwOperation As Integer, ByVal bimmediate As Long) As Integer Public Declare Function CreateFile Lib "kernel32" Alias "CreateFileA" (ByVal lpFileName As String, ByVal dwDesiredAccess As Integer, ByVal dwShareM ...

Verfasst am: 14.06.2011, 22:25 Aufrufe: 518

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, 15:15 Aufrufe: 576

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, 17:53 Aufrufe: 567

... ie 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 length As Long, ByVal position As Integer ...

Verfasst am: 24.05.2011, 13:33 Aufrufe: 936

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.Application") If Err.Number Then Err.Clear( ...

Verfasst am: 24.05.2011, 13:13 Aufrufe: 936

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 Dim wbk As String ' Excel öffnen On Error Resume Next XL = GetObject(, "Excel.A ...

Verfasst am: 11.05.2011, 02:27 Aufrufe: 642

... er hier kann ich dir ein Beispiel geben wie du deine HEX-Werte in 2er Blöcke formatieren kannst. Zum Testen must du "Text1", "Text2" und "Command1" auf deine Form platzieren. Private Sub Command1_Click() 'HEX-Wert in 2er Blöcke formatieren 'Text1 : der HEX-Wert der formatiert werden soll 'Text2 : der HEX-Wert in 2er Blöcken Dim cnt As Integer ...

Verfasst am: 09.05.2011, 10:32 Aufrufe: 485

Also er liest sich bei einem Klick auf die entsprechende Zeile in der Listbox die Daten in die Textboxen und wenn man in diesen Textboxen etwas ändert, soll die Änderung auch in die Tabelle übernommen werde. Bis jetzt passiert aber nichts. Kann mir vielleicht jemand weiter helfen? Hier der Code: Private Sub CommandButton3_Click() 'Datensätze ändern Dim lng As Long Dim i As Integer On Error Res ...

Verfasst am: 25.03.2011, 09:56 Aufrufe: 771

csv - Datei geöffnet und die Daten Zeile für Zeile in einen String eingelesen werden. Das Öffnen über einen verknüpften Button funktioniert schon, hier einmal der bisherige Code: Sub OpenCSVFile() Dim FileP As String Dim i As Integer Dim wks As Worksheet Title = "Datei zum Öffnen auswählen." ' Ausgangslaufwerk und Pfad ChDrive ("C:\") ChDir ("C:\& ...

Verfasst am: 25.03.2011, 06:34 Aufrufe: 1244

Verfasst am: 25.03.2011, 01:11 Aufrufe: 1244

... Private Sub DownloadItem(ByVal sURL As String, _ ByVal strFile As String, ByVal strFolder As String) Dim webreq As HttpWebRequest Dim webresp As HttpWebResponse Dim bReader As BinaryReader Dim bWriter As BinaryWriter Dim stream As FileStream Dim buffer() As Byte = New Byte(1024) {} Dim bytesRead As Integer ...

Verfasst am: 23.03.2011, 15:11 Aufrufe: 322

Wo ich dann doppelclick auf den Button klicke und diesen code eingebe: MsgBox (Textbox1.text, Textbox2.text) funktioniert noch alles. Wenn ich das Programm dann Ausführe und eine MsgBox machen will kommt diese Meldung: Ungültige Konvertierung von der Zeichenfolge Blablabla in Typ Integer. Blablabla war der Text und die Überschrift die ich eingegeben hatte. Danach bleibt das Programm stehen. Was mache ...

Verfasst am: 17.03.2011, 13:03 Aufrufe: 827

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 Dim Job As ListBox workeractive = True For Each Job In Jobarray Dim workcount As Integer = Job.Items.Item(1) ...

Verfasst am: 15.03.2011, 10:18 Aufrufe: 344

ich habe hier das Original Programm dass ich am Anfang programmiert hab geschrieben, und folgt ihn die Verkürzung! wäre super wenn mir hier jemand helfen könnte! Private Sub HV_bd_Click() Dim Bd As Double Dim ia As Integer Dim iv As Integer Dim a As Integer, b As Integer, c As Integer, d As Integer, e As Integer Dim f As Integer, g As Integer, h As Integer, i As Integer, j As Integer Dim k As Integer, l As I ...

Verfasst am: 13.03.2011, 11:48 Aufrufe: 293

hi wofür du da einen mehrdimensionalen array brauchst weis ich nicht so ganz dim iArray (1 to 7) as integer dim grZahl as integer grZahl = iArray(1) for i = 2 to 7 if iArray (i) > then grZahl then grZahl = iArray(i) next msgbox grZahl ich habe zwar noch keine consolanwendung geschrieben und vb.net kann ich auch nicht aber mit dem kannst was anfangen denke ...

Verfasst am: 04.03.2011, 10:25 Aufrufe: 562

SendData "Anfrage" End Sub Sub Winsock1_DataArrival(ByVal bytesTotal As Long) Dim Daten As String Winsock1.GetData Daten Debug.print Daten End Sub Sub AufDatenWarten() Dim Tmp As Integer Do DoEvents Sleep 100 Loop Until Winsock1.State = sckConnected Or Winsock1.State = sckError Do DoEvents Sleep 100 Tmp ...

Verfasst am: 18.02.2011, 21:09 Aufrufe: 475

TextBox2.SelLength = 2 UserForm1.TextBox2.SelText = "" End If End Sub Private Sub CommandButton1_Click() 'Speichert den eingegebenen Text von der Textbox in eine Textdatei' Dim F As Integer F = FreeFile Open "c:\Documents\test1.txt" _ For Output As #F Print #F, zw; UserForm1.TextBox1.Text; Close #F F = FreeFile Open "c:\Documents\ ...

Verfasst am: 15.02.2011, 15:24 Aufrufe: 1086

B. document.PausedPrinting In der Hilfe steht: document.PausedPrinting (Reason, refCancel) "Informs the user of a problem during printing process for the current document." Reason = Integer NoPaper = 2 NoRibbon = 3 ... 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 ...

Verfasst am: 04.02.2011, 20:12 Aufrufe: 1219

Add". Geht aber nicht, weil ComboBox ein Type ist. Jetzt habe ich mir klug gedacht "Ha, mach ich das doch einfach über ein Array!": Dim CBArray As New ArrayList() CBArray(0) = ComboBox1 Dim i As Integer For i = 0 To 50 CBArray(0).Items.Add(PrimFertigkeiten(i)) Next i Da wirft er mir ke ...

Verfasst am: 04.02.2011, 11:02 Aufrufe: 505

Hallo alle zusammen, ich versuche verzweifelt den INhalt einer Arraylist (Name Vorname Ausgabe Eingabe) in eine Accessdatenbank zu schreiben. Dim iCount As Integer = importkasse.Count Dim iIndex As Integer Dim str As String For iIndex = 0 To iCount - 1 str = str & importkasse.Item(iIndex).ToString & "," Next cmd ...

Verfasst am: 02.02.2011, 00:18 Aufrufe: 640

... DI-Mainwindow, in welches die Form "WorkSpace" liegt Benötigt: 1 Form "WorkSpace", in dieser 1 Button "nButton" mit Index = 0, also Button-Gruppe 1 Picturebox "Picture1" mit Index = 0, also PictureBox-Gruppe 1 Timer "Timer1" mit Intervall 1 Option Explicit Private XD!, YD!, TwX!, TwY! ' MausPosition Private mXPos As Integer ...

Verfasst am: 29.01.2011, 20:42 Aufrufe: 640

mit der Maus aufziehen und erstellen kann. Das Aufziehen mit FocusRect klappt und die Laufzeitimplementierung der Schaltflächen habe ich mit folgendem Code gelöst: Option Explicit Dim WithEvents nObjekt As VB.CommandButton Private objectCounter As Integer ' Zähler für benutzererstellte Objekte Private Sub form_load() objectCounter = 0 End Sub Private Sub buildButton() ...

Verfasst am: 25.01.2011, 11:15 Aufrufe: 710

Text If Not IsNumeric(Left$(Autor, 1)) And Not IsNumeric(Right$(Autor, 1)) Then cells(1,2) = Autor Else MsgBox "bitte keine zahlen eingeben" End If 'Der Lagerbestand darf nicht negativ sein. dim Lagerbestand as integer if Lagerbestand < 0 then Msgbox "die Eingabe is fehlerhaft" vl kannst damit mal was anfangen wennst noch eine ...

Verfasst am: 22.12.2010, 14:01 Aufrufe: 898

KeyUp Static einl As Decimal 'Einlesen der Einmalanlage einl = CInt(TextBox1.Text) End Sub Public Function kapital(ByVal einl) Dim rend = {2, 2.5, 3, 4, 4.5, 5} 'Werte der Renditen Dim i As Integer For i = 1 To 65 Me.dg.ItemsSource = i.ToString 'Befehl zur Ausgabe in Tabelle = "Jahr" 'Durchgehen der Jahre und A ...

Verfasst am: 16.12.2010, 20:36 Aufrufe: 570

Red End If End Sub End Class Public Class clBlock Inherits Control Private Declare Function DrawFocusRect Lib "user32" Alias "DrawFocusRect" (ByVal hDC As Integer, ByRef lpRect As RECT) As Integer Private Declare Function GetDC Lib "user32" Alias "GetDC" (ByVal hWnd As Integer) As Integer Private Declare Function ReleaseDC Lib "u ...

Verfasst am: 14.12.2010, 11:47 Aufrufe: 409

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

Verfasst am: 07.12.2010, 23:13 Aufrufe: 1030

Refresh() gelöscht wird. Wie kann ich sowas wie AutoRedraw() bei VB6 unter VB2010 erreichen? Beispielcode einer analogen Uhr: Es ist nur eine normale Form samt einem Timer erforderlich. --- Public Class Form1 Public x0, y0, r, rs, rm, rh As Integer ' Mittenkoordinaten, Radien Public g As Graphics Public m_Face As Bitmap Private Sub Form1_Shown(ByVal sender As Object, ByVal e As System. ...

Verfasst am: 03.12.2010, 22:02 Aufrufe: 713

EventArgs) End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click TextBox3.Text = "" For i As Integer = 1 To NumericUpDown1.Value erstellenz() Next TextBox2.Text = "" For i As Integer = 1 To NumericUpDown1.Value erstellen() Next T ...

Verfasst am: 18.11.2010, 17:19 Aufrufe: 926

lLbound = 0; //Erster Index des Arrays aDim[0].cElements =6; //Anzahl der Arrayelemente SPSData =SafeArrayCreate(VT_INT,1,aDim); //Safearray für Short/Integer erstellen for (long int i=0;i<6;i++) // Befüllen des SAFEARRAYS { SafeArrayPutElement(SPSData,&i,&Werte[i]); } try //Aufruf der VB6-Methode { CoInitialize&# ...

Verfasst am: 11.11.2010, 17:46 Aufrufe: 713

My.Computer.FileSystem.WriteAllText(Environment.GetFolderPath(Environment.SpecialFolder.DesktopDirectory) & "\textnew.txt", (str)) der fehler wird in (str)) ANGEZEIGT Sad

(

Verfasst am: 07.11.2010, 13:42 Aufrufe: 611

Jetzt habe ich doch noch eine weitere Frage dazu: Mein Code zum Versenden einer Datei über ein html Formular mit VB sieht wie folgt aus: Private Sub cmdUpload_Click() Dim aPostData() As Byte Dim vPostData As Variant Dim vUrl As Variant Dim vHeaders As Variant Dim strText As String Dim strContentHeader As String Dim strBody As String Dim nFile As Integer Me.txtFile1.Text = "D& ...

Verfasst am: 03.11.2010, 14:13 Aufrufe: 1156

hy achso ja ist auch kein problem.... mit form1_KeyDown(keycode as integer) 'oder wie auch immer If KeyCode = vbKeyNumpad1 Then Call Button1_Click end sub problem dabei ist da du buttons auf der form hast hat die form nie den focus und keydownevent funk nicht ... (vl ist es in vb.net mittlerweile anders) das heist du hast die wahl ob du bei deinem Taschenrechner in jeden button die c ...

Verfasst am: 03.11.2010, 11:14 Aufrufe: 1156

hi kein problem Wink

Public Declare Sub mouse_event Lib "user32" Alias "mouse_event" (ByVal _ dwFlags As Integer, ByVal dx As Integer, _ ByVal dy As Integer, ByVal cButtons As Integer, ByVal _ dwExtraInfo As Integer) Private Const MOUSEEVENTF_LEFTDOWN = &H2 Private Const MOUSEEVENTF_LEFTUP = &H4 private Sub Button1_Click... mouse_event(MOUSEEVE ...