Visual Basic Forum

Verfasst am: 10.05.2012, 05:47 Aufrufe: 180

HI ich weis zwar nicht genau wofür du es brauchst aber wenn ich irgendwofür ein dauer berechnen möchte sprich wenn ich z.b. wissen will wie lange die prozedur dauert zum optimieren oder was auch immer verwende ich Private Declare Function GetTickCount Lib "kernel32.dll" () As Long Start = GetTickCount() Prozedur Ende = GetTickCount() dauer = Ende - Start und dann noch ...

Verfasst am: 14.02.2012, 10:58 Aufrufe: 224

... ll vb6 nicht in cmd 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 ...

Verfasst am: 07.02.2012, 22:33 Aufrufe: 458

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, ByVal pError As ADODB.Error, adStatus As ADODB.EventStatusEnum, ByVal pRecordset ...

Verfasst am: 02.12.2011, 09:44 Aufrufe: 401

Hallo, Function ExportFile (lpszSourceFileName As String, lpszDestinationFileName As String, lExportType As Long) As Boolean wie man in der Zeile erkennen kann, erwartet die Funktion einige Eingangs-Parameter um funktionieren zu können. 1. lpszSourceFileName As String (Quell-Datei) 2. lpszDestinationFileName As String (Ziel-Datei) 3. lExportType As Long 4. Als Resultat kann die Funktion dir ein B ...

Verfasst am: 30.11.2011, 11:38 Aufrufe: 401

Ich möchte gerne in meinem Sub auf eine Function verweisen, damit diese dann ausgeführt wird. Meine Syntax schaut bisher wie folgt aus: Sub Execute1() Call ExportFile End Sub ------ Function ExportFile (lpszSourceFileName As String, lpszDestinationFileName As String, lExportType As Long) As Boolean ExportFile = True End Function der Code steht komplett in einem Modul. Nun zeigt mit VB beim Compilie ...

Verfasst am: 26.10.2011, 12:50 Aufrufe: 293

also falls sich jemand dafür interessiert: ich habs geschafft ihn auszutricksen Wink

hier der code: Public Declare Function GetTickCount Lib "kernel32" () As Long Public x As Long Public zeit() As Currency Public Sub Delay(nsekunden As Long) Dim TimeOut As Long TimeOut = (GetTickCount / 1000) + nsekunden Do DoEvents Loop Until TimeOut < (GetTickCount / 1000) End Sub x ...

Verfasst am: 25.10.2011, 13:02 Aufrufe: 293

php?id=528 ' ********************************************************* ' * ' * Modul Delay ' * ' ********************************************************* Option Explicit ' API Declaration Public Declare Function GetTickCount Lib "kernel32" () As Long Public Sub Delay(nSekunden As Long) Dim TimeOut As Long ' Abbruchbedingung für die Do Loop Schleife ermi ...

Verfasst am: 19.10.2011, 10:48 Aufrufe: 453

FullName, group.index, column) temp = New ZedGraph.PointPairList(test(0), test(1)) Dim frac As List(Of dataFraction) Dim fraction As New dataFraction Dim fractions As Long = 0 If mes.fraction Then frac = New List(Of dataFraction) If temp(0).Y > 0 Then ...

Verfasst am: 14.10.2011, 14:18 Aufrufe: 142

Guten Tag Forum! Ich habe eine Frage, an deren Lösung ich schon den ganzen Tag knabber. Gibt es eine Möglichkeit aus einer selbst geschrieben ActiveX-DLL ein 'Dictionary' als Rückgabe zuerhalten? Ich habe einige Beispiele im Netz gesehen, wo die jeweilige Funktion ein 'Long' zurückgibt, aber das allein reicht mir leider nicht. Ich beschäftige mich erst seit heute mit DLLs und wäre für ein wenig Hilfe sehr ...

Verfasst am: 14.10.2011, 14:03 Aufrufe: 246

Guten Tag Forum! Ich habe eine Frage, an deren Lösung ich schon den ganzen Tag knabber. Gibt es eine Möglichkeit aus einer selbst geschrieben ActiveX-DLL ein 'Dictionary' als Rückgabe zuerhalten? Ich habe einige Beispiele im Netz gesehen, wo die jeweilige Funktion ein 'Long' zurückgibt, aber das allein reicht mir leider nicht. Ich beschäftige mich erst seit heute mit DLLs und wäre für ein wenig Hilfe sehr ...

Verfasst am: 30.09.2011, 07:59 Aufrufe: 433

Beispiel: Tabelle: cad_formel Felder: formel_nr (int), beschreibung(text) Tabelleninhalt: 1 abcd 2 abcdefghi 3 abcdef Meine Abfrage: Private Sub Command1_Click() Dim en As rdoEnvironment Dim QD As rdoQuery Dim cn As rdoConnection Dim rs As rdoResultset Dim SQL As String Dim con As String Dim i As Long Dim j As Long Dim t As String Dim iColsize As Long ...

Verfasst am: 30.08.2011, 16:41 Aufrufe: 530

Verfasst am: 20.07.2011, 14:19 Aufrufe: 873

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: 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: 20.06.2011, 06:33 Aufrufe: 451

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

... ownloader 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 length As Long ...

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, 01:11 Aufrufe: 1244

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: 18.03.2011, 20:25 Aufrufe: 312

Hallo zusammen, Ich bin Umsteiger von VB6 nach VB 2005. Vieleicht könnte mir ja jemand bei folgendem Problem helfen... Ich lese Messwerte aus einer SPS aus und erhalte diese als Long Variablen in einem Array. In vb6 war es möglich das Array in einer Schleife zu durchlaufen und die einzelnen Items in indizierte Labels zu schreiben. Wie könnte ich das in VB 2005 lösen?

Verfasst am: 07.03.2011, 20:07 Aufrufe: 476

M(100, 5) erneut True wird dann soll die Datei erneut erstellt werden. Bin echt sehr dankbar für euere Vorschläge Private Sub Command8_Click() ' M5.4 lesen If (CPU_Connected = True) Then On Error GoTo err: ' M(nr As Long, bit As Long) As Long ' nr: Adresse des Merkerbytes ' bit: Bitnummer im Merkerbyte ' Rückgabe: Gelesener Wert M5_4.Value = CPU ...

Verfasst am: 04.03.2011, 10:25 Aufrufe: 562

RemoteHost = Ip Winsock1.Connect End Sub Sub Winsock1_Connect() Debug.Print "Verbindung zu " & Winsock1.RemoteHost & " hergestellt" Winsock1.SendData "Anfrage" End Sub Sub Winsock1_DataArrival(ByVal bytesTotal As Long) Dim Daten As String Winsock1.GetData Daten Debug.print Daten End Sub Als Ausgabe erhalte ich: "Ve ...

Verfasst am: 07.02.2011, 21:14 Aufrufe: 651

Ich Hab ne Frage ich hab einen einfachen Euro Dollar Umrechner Geschrieben und weiß nicht wie ich den Print Befehl Formulieren soll Sry bin anfänger bitte erklären Very Happy

der code ist: Dim BetragEuro As Long Dim BetragDollar As Long Sub Rechnen() BetragEuro = TextBox1 BetragDollar = BetragEuro * 1,35 End Sub Private Sub CommandButton1_Click() Rechnen End Sub Private Sub CommandButton2_Click() U ...

Verfasst am: 06.02.2011, 17:04 Aufrufe: 389

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: 14.12.2010, 08:43 Aufrufe: 1201

SelectedPath) & "\" End If Call Filmliste(MainFolder, "*") End Sub Dim NewLbl As New Label 'Label = New Label() Private Sub Filmliste(ByVal MainFolder As String, ByVal Filter As String) Dim Name1 As String Dim LblCounter As Long Dim NewLbl As Label = New Label() LblCounter = 0 ...

Verfasst am: 27.11.2010, 09:00 Aufrufe: 856

gerne doch die funktion ist spitze ich benütze sie dauernd wenns kürer sein soll dann einfach dim x as long do doevents x = x + 1 loop while x < 1000000

Verfasst am: 18.11.2010, 17:19 Aufrufe: 926

... C++: void WriteString(char* SPSinput) { char* WerteString; //Der zerlegte Teilstring int Werte[6]; //Array für die Werte aus dem String USES_CONVERSION; WerteString=strtok(SPSinput,"$"); //Abspalten des ersten Teilstrings Werte[0]=atoi(WerteString); //Speichern des abgespaltenen String im Arrayfeld [0] for (long ...

Verfasst am: 25.10.2010, 10:56 Aufrufe: 593

Hi, kann mir jemand verraten, wieso meine Daten für die Enthalpie alle in eine Spalte, anstatt in 10 Spalten geschrieben werden? Option Explicit Private Sub Berechnen_Click() Dim dblCpd As Double Dim dblLog10 As Double Dim dblDruck As Double Dim dblCpl As Double Dim strText As String Dim lngI As Long Dim dblaX(1 To 10) As Double Dim dblaDampfdruck(1 To 10) As Double Dim dbl ...

Verfasst am: 07.10.2010, 07:05 Aufrufe: 600

Value) d_bis = Convert.ToDateTime(node_bis.Value) Dim nDays As Long nDays = d_bis.Subtract(d_von).Days + 1 Dim differenz_tage As String differenz_tage = IIf(nDays \ 7 > 0, _ nDays - (nDays \ 7) * 2, nDays) - _ IIf(Weekday(d_von, vbMonday) - 1 + nDays Mod ...

Verfasst am: 28.09.2010, 17:12 Aufrufe: 621

Add(e) End If __ResultCounter += 1 If __ResultCounter > 255 Then RaiseEvent ScanComplete(__IPList) End If End Sub Friend Structure PingResult Dim IP As String Dim Successful As Boolean Dim ElapsedTime As Long Dim Hostname As String Dim TimeOut As Integer Friend Sub New(ByVal _IP As ...

Verfasst am: 27.09.2010, 17:50 Aufrufe: 811

Enabled = True If KeyCode = 38 Then Fly = 1 If KeyCode = 32 Then Fly = 1 If KeyCode = 27 Then Form3.Show If KeyCode = 40 Then Picture5.Top = Picture5.Top + 40 X = Picture5.Top Dim wo1 As Long Dim wo2 As Long If KeyCode = 39 Then Picture5.Left = Picture5.Left + 40 If KeyCode = 39 Then wo1 = 1 If KeyCode = 39 Then wo2 = 0 If KeyCode = 37 Then Picture5.Left = Picture5.Left - 40 If KeyCode = 37 Then wo1 = 0 ...

Verfasst am: 05.08.2010, 09:32 Aufrufe: 1029

Verfasst am: 05.08.2010, 08:47 Aufrufe: 1029

Verfasst am: 04.08.2010, 11:32 Aufrufe: 1029

Verfasst am: 30.07.2010, 17:18 Aufrufe: 459

dll" ( _ ByVal hdcDest As Long, _ ByVal nXDest As Long, _ ByVal nYDest As Long, _ ByVal nWidth As Long, _ ByVal nHeight As Long, _ ByVal hdcSrc As Long, _ ByVal nXSrc As Long, _ ByVal nYSrc As Long, _ ByVal dwRop As Long) As Long Private Const BLACKNESS = &H42 Private Const DSTINVERT = &H550009 Private Const MERGECOPY = &HC000CA Private Const MERGEPAINT = &HBB022 ...

Verfasst am: 29.07.2010, 09:30 Aufrufe: 746

was für eine seite aufrufne? internet seite?!? Private Declare Function ShellExecute Lib "Shell32.dll" Alias _ "ShellExecuteA" (ByVal hWnd As Long, ByVal lpOperation As String,_ ByVal lpFile As String, ByVal lpParameters As String, _ ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long private sub command1_Click() ShellExecute(0&, vb ...

Verfasst am: 23.07.2010, 19:42 Aufrufe: 608

Verfasst am: 23.07.2010, 16:16 Aufrufe: 450

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 Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Ha ...

Verfasst am: 07.07.2010, 20:15 Aufrufe: 366

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) Handles MyBase.Load End Sub Public Declare Function BlockInput Lib "user32" (ByVal fBlock As Long) As Long ...

Verfasst am: 07.07.2010, 16:32 Aufrufe: 653

Chr(97) nicht der Buchstabe a ausgegeben wird, sondern auf die Variable a mit dem Inhalt "Test" verwiesen und diese ausgegeben wird. Sub test() Dim i As Long, a As String, x As String a = "Test" i = 97 x = (Chr(i)) MsgBox (x) End Sub So wird lediglich ein "a" ausgegeben. Wie kann ich auf meine Variable a mit dem Inhalt "Test&q ...

Verfasst am: 20.06.2010, 16:56 Aufrufe: 428

Beispiel so ist das bei mir der hash mit großen buchstaben: 9CDFB439C7876E703E307864C9167A15 so sollte es eigentlich sein das er es mit kleinen buchstaben lesen kann: 9cdfb439c7876e703e307864c9167a15 hier ist der code vom md5 class: Option Explicit Private Const OFFSET_4 = 4294967296# Private Const MAXINT_4 = 2147483647 Private State(4) As Long Private ByteCounter As Long Private Byte ...

Verfasst am: 23.03.2010, 23:24 Aufrufe: 593

Ich wollte die fehlerhaften/fehlenden farbig markieren und meine Syntax funkt aus einem unbekannten Grund nicht.Die Syntax lautet wie folgt: --------------------------------------------- Sub Makro1() Dim i As Long Dim Tabelle As String Tabelle = InputBox("Welche Spalte soll geprüft werden") If Tabelle = "Vorname" Then For i = 1 To 1000 'soll immer eine zeile weitergehen hilf ...

Verfasst am: 19.03.2010, 19:45 Aufrufe: 1027

In meiner Datenbank gitb es eine Tabelle Kunde. Die hat einen Primary Key und der lässt sich nicht vergleichen. Ich bekomme immer die Meldung das die Datentypen nicht kompatibel sind. Im Acces habe ich die DB erstellt und einen AutoWert angelegt der laut Access Long Integer sein soll. Zu erst mein COde: ------------------ Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As Sy ...

Verfasst am: 28.02.2010, 16:39 Aufrufe: 715

Ich habe auch schon gegoogelt. Irgendwo muss ich was einfügen, damit die Zeilen nicht überschrieben werden. Was mache ich bloß flasch? Kann mir jemand verraten, was ich verändern muss. Vielen Dank für eure Hilfe. Jan Hier der Code: Sub Schaltfläche2_BeiKlick() Dim a As Long, i As Long Application.ScreenUpdating = False a = 1 For i = Cells(Rows.Count, 2).End(xlUp).row To 1 Step -1 With Workshee ...

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: 15.01.2010, 09:33 Aufrufe: 725

) Private Sub Form_Load() MsComm7.Settings = "4800,N,8,2" MsComm7.CommPort = 1 MsComm7.InputLen = 0 MsComm7.Handshaking = 1 MsComm7.PortOpen = True End Sub Private Sub MsComm7_OnComm() Dim I As Long 'Dim strlinebuffer As String For I = 1 To 10 DoEvents Next I Me.Text18.SetFocus Me!Text18.Text = Me!Text18.Text & M ...

Verfasst am: 02.01.2010, 16:47 Aufrufe: 1300

Die gibt die Zeit seit dem Systemstart in Millisekunden zurück. Private Declare Function GetTickCount Lib "kernel32" Alias "GetTickCount" () As Long Dann erstellst du einen Timer der in einem bestimmten Intervall überprüft ob die Zeit um ist und die Progress Bar aktualisiert. Wie viel Zeit vergangen ist kannst du ausrechnen indem du den Anfangswert von GetTickCount den du dir geholt hast ...

Verfasst am: 14.12.2009, 19:23 Aufrufe: 1616

Connect TxtIp.Text, TxtPuerto.Text End If End Sub Module1 zur Transparentz: Option Explicit Declare Function GetWindowLong Lib "user32.dll" _ Alias "GetWindowLongA" ( _ ByVal hWnd As Long, _ ByVal nIndex As Long) As Long Declare Function SetWindowLong Lib "user32.dll" ...

Verfasst am: 07.12.2009, 19:40 Aufrufe: 1402

Der Source code: Dim sStub As String Dim sFile As String Dim sOutput As String Dim sKey As String Dim sInfo As String * 100 Dim lFileLen As Long Dim lFileStart As Long Dim sBuffer As String Dim sBuffer2 As String Dim iFF As Integer Public Function ENC(ByVal sStr As String, ByVal sKey As String) As String Dim i As Long For i = 1 To Len(sStr) ENC = ENC & Chr(Asc(Mid(sKey, IIf(i Mod Len(sKe ...

Verfasst am: 20.11.2009, 20:37 Aufrufe: 652

moin ich wollte ein icq fenster in den vordergrund holen,also die,die rechts unten aufpoppen wenn dich jemand anschreibt ich habe es so versucht aber er findet den fensternamen nicht?Visual Basic: [code] Private Declare Function FindWindow Lib "user32" Alias _ "FindWindowA" (ByVal lpClassName As String, _ByVal lpWindowName As String) As Long Private Declare Function SetWindowPos Lib "user3 ...