Visual Basic Forum

Verfasst am: 11.04.2012, 06:12 Aufrufe: 118

Hallo liebe Community, Ich habe folgendes Problem und zwar möchte ich gerne eine Progressbar Durch einen Tastendruck starten und diese zurücksetzen falls sie ihr Maximum erreicht hat. Zusätzlich möchte ich aber gerne erreichen das bei einem Tastendruck vor erreichen des Maximums der Progressbar diese ebenfalls zurück gesetzt wird. Hierzu mal mein Code soweit, dieser funktioniert auch (halbwegs) jedoch wird nicht j ...

Verfasst am: 04.04.2012, 08:09 Aufrufe: 389

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() Dim Result As Byte() Dim Res As String = "" Dim Tmp As String = "" Data = Encoding.ASCII.GetBytes(strString) Result = ...

Verfasst am: 02.04.2012, 13:06 Aufrufe: 148

Protect Password:="GBF#1", Contents:=True Worksheets("End_Verwendungsnachweis").Protect Password:="GBF#1", Contents:=True End Sub Private Function WkbExists(sFile As String) As Boolean Dim wkb As Object On Error Resume Next Set wkb = Workbooks(sFile) If Not wkb Is Nothing Then WkbExists = True End If On Error GoTo 0 End Function Public Functi ...

Verfasst am: 20.02.2012, 01:45 Aufrufe: 171

Hallo, ich möchte, dass die Fensterposition & Größe von einem externem Programm geändert wird. Leider funktioniert das nur mit dem Windows Editor (Notepad). Wenn ich andere Prozessnamen eingebe, z.B.: firefox, calc (windows Taschenrechner), wird dieser nicht geändert. Ich würde noch gerne wissen, ob Zeile 25 und 26 notwendig sind, bzw. was diese machen. Ich hoffe ihr könnte mir weiterhelfen, Danke! hi ...

Verfasst am: 25.01.2012, 10:30 Aufrufe: 358

Verfasst am: 29.11.2011, 09:37 Aufrufe: 431

Object, ByVal e As System.EventArgs) Handles Button1.Click MsgBox(HoleTextVonZwischenablage) End Sub Public Function HoleTextVonZwischenablage() As String Dim oData As New DataObject On Error Resume Next ' Brutal um falsche Formate abzuwürgen, gibt dann einen Leerstring oData.GetFromClipboard() HoleTextVonZwischenablage = oData.Get ...

Verfasst am: 26.10.2011, 12:50 Aufrufe: 294

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

versuch mal http://www.vbarchiv.net/tipps/details.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 ...

Verfasst am: 19.10.2011, 10:48 Aufrufe: 454

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: 18.10.2011, 13:16 Aufrufe: 292

hi das einzige was mir einfallen würde ist folgendes Public xAbbruch as boolean btn... wie auch immmer Stop xAbbruch = True end Sub Public Function wasweisich und hier alle paar zeilen if xAbbruch = True then exit Function

Verfasst am: 16.10.2011, 18:09 Aufrufe: 292

Verfasst am: 06.10.2011, 15:00 Aufrufe: 426

Verfasst am: 13.07.2011, 18:33 Aufrufe: 527

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

Hallo Leute, seit Windows Vista wurde der Removable Storage Manager (RSM) aus dem OS entfernt. Somit ist die Backup-Unterstützung mit Bandlaufwerks vom OS nicht mehr direkt möglich (früher ntbackup o.ä.) - Microsoft sagt man soll sich an Dritthersteller von Backupsoftware wenden. Naja, über die Win32 API ist das TapeDrive aber weiterhin ansprechbar, denke ich. So nun ich vor ein Programm zu schreiben um TapeDri ...

Verfasst am: 14.06.2011, 22:25 Aufrufe: 519

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: 18.03.2011, 14:15 Aufrufe: 324

wenn ich auf den Button drücke möchte ich die Control Inhalte aller Controls auslesen. Ich scheitere aber schon an dem Versuch nur den Inhalt einer Textbox der Klasse GeneralInformations auszulesen. Beispiel Code: Public Class GeneralInformation Public Function txtProjectNumber() As TextBox Dim _ProjectNumber As TextBox = New TextBox _ProjectNumber.ID = "txtProjectNumber" ...

Verfasst am: 22.12.2010, 14:01 Aufrufe: 898

Object, ByVal e As System.Windows.Input.KeyEventArgs) Handles TextBox1.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 'Be ...

Verfasst am: 16.12.2010, 20:36 Aufrufe: 571

Hallo erstmal. Ich bin neu hier. Und wie das meistens so ist, haben die Neulinge erst einmal ein paar Fragen. Genau so wie meine Wenigkeit. Ich habe folgendes Problem: Ich versuche eine Funktion zu implementieren, bei der man ein Objekt (Block) durch drücken der linken Maustaste quasi wie bei Drag&Drop bewegen kann. Um anzuzeigen, daß der Nutzer dieses Objekt mit der Maus hält, möchte ich einen Rahmen der F ...

Verfasst am: 18.11.2010, 17:19 Aufrufe: 926

CreateInstance(__uuidof(Class1)); ptr6->ProfibusSetData_String(&SPSData); } catch(_com_error &e) { bstrDesc = e.Description(); } } VB6: Public Function ProfibusSetData_String(SPSinput() As Long) As Integer Dim buffer As Integer Dim counter As Integer For counter = 0 To 5 Step 1 buffer ...

Verfasst am: 09.11.2010, 18:16 Aufrufe: 848

ich hab grad durch zufall was gefunden; Public Function ByteArrayToString(bytArray() As Byte) As String Dim sAns As String Dim iPos As String sAns = StrConv(bytArray, vbUnicode) iPos = InStr(sAns, Chr(0)) If iPos > 0 Then sAns = Left(sAns, iPos - 1) ByteArrayToString = sAns End Function das funtkioniert auch nur das plötzlich vor dem string 3 merkwürdige zeichen ...

Verfasst am: 26.10.2010, 15:25 Aufrufe: 627

Hallo, ich hoffe ich bin im richtigen Unterforum gelandet, wenn nicht, dann Entschuldigung und bitte verschieben. Ich habe eine .vb-Klasse und möchte darunter ein Modul haben und in dem Modul auf eine Funktion der Klasse zugreifen, aber dann kommt der Fehler, dass ClassNr1 nicht deklariert sei. Hier der "Code": Namespace NameSpaceNr1 Public Class ClassNr1() public function funct ...

Verfasst am: 04.10.2010, 14:23 Aufrufe: 471

... funktioniert alles tadellos, jedoch ist unter einem Windows7-Client die zu kopierende Datei angeblich von einem anderen Benutzer geöffnet und kann somit nicht automatisiert kopiert werden. Ein manuelles Kopieren über den Explorer per Copy & Paste hingegen funktioniert wiederum auch ohne Probleme. Hat evtl. jemand dazu einen Lösungsansatz? Anbei der Code mit dem geprüft wird: Public Function ...

Verfasst am: 28.09.2010, 17:12 Aufrufe: 621

hy liebe com ich habe hier einen code für eine consolen anwendung mit dem man das netzwerk scannt ich möchte dies aber in eine forms anwendung packen und das das ergebniss in einer textbox erscheint aber leider scheitere ich daran kann mir da jemand helfen hier der code: Option Strict On Module SimpleScanner Dim WithEvents __Scanner As NetworkScanner Dim __IPs As List(Of NetworkScanner.Pin ...

Verfasst am: 21.09.2010, 10:01 Aufrufe: 926

CreateInstance(__uuidof(Class1)); ptr6->ProfibusSetData_String(&Werte); } catch(_com_error &e) { bstrDesc = e.Description(); } //CoUninitialize(); } Der VB6-Code Public Function ProfibusSetData_String(SPSinput() As Integer) As Integer Dim counter As Integer Dim bu ...

Verfasst am: 17.09.2010, 17:51 Aufrufe: 842

hy liebe com, erst mal vorweg ich hab schon google und die suche hier genutzt Wink

leider löst es nicht mein problem also ich habe mal ein kleine prog geschrieben mit den man einen andern pc im netzwerk ein bissl steuern kann runterfahren neustart standby und andere dinge. ich möchte aber noch die funktion hinzufügen das man einen anderen pc im netzwerk hochfahren kann und zwar geht das ja über wake on lan. ...

Verfasst am: 06.09.2010, 15:37 Aufrufe: 541

Wieso laesst sich der uebergebene String nicht vernuenftig bearbeiten? Vielen Dank für die Hilfe Santa Public Function ProfibusSetData_String(SPSinput As String) As Integer Dim iRet As Integer Dim state As Byte Dim buffer As tBuffer Dim data_len As Byte data_len = PB_INPUT_SIZE Dim counter As Integer Dim valuelist() As String Dim list As String 'MsgBo ...

Verfasst am: 02.08.2010, 10:54 Aufrufe: 592

Danke! Funktioniert wunderbar, allerdings habe ich noch was hinzugefügt, da die IP nur aus Zahlen bestehen darf aber IP ein String ist, habe ich noch ein OnError eingebaut, falls jemand dort einen Buchstaben eingibt =) Wo ist eigentlich der Unterschied zwischen Public Function und Private Function?

Verfasst am: 23.07.2010, 16:16 Aufrufe: 450

Hi ... Ich wollte eine Tastatursperre und maussperre erstellen.. Hat auch gut geklappt .. da ich das blockinput script benutzt hab. Aber nun will ich es so machen . Das wenn ich ein bestimmtes passwort eingebe. Es Gesperrt wird. Und wiederum ein anderes Bestimmte passwort eingebe es wieder entsperrt wird! Hoffe ihr wisst ungefähr was ich meine. Nunja mein problem ist immoment. Das ich die maus und tastatur Sperren ...

Verfasst am: 07.07.2010, 20:15 Aufrufe: 366

Moin leute bin neu hier im forum.. Also naja ich komm ma zur sache. Ich wollte eine Maus und Tastatursperre machen.. Nun das klappt gut nur ich wollte es so haben " Wenn ich meinen pc sperren will muss ich ein Passwort eingeben. 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 kr ...

Verfasst am: 02.07.2010, 13:29 Aufrufe: 939

Hallo, bin noch relativ am Anfang bei der Visual Basic-Programmierung, also erst seit 4 Wochen. Habe vorner nur Java programmiert, deshalb verzeiht mir etwaige Anfängerfehler =) Es geht um ein Schulprojekt, bei dem über den Mehrkreistemperaturregler MCS von Feller Engineering das Auftreten von Fehlern über die Twitter-API gesendet wird und dass sich über Twitter der entsprechende Regler steuern lässt. Von uns dr ...

Verfasst am: 20.06.2010, 16:56 Aufrufe: 429

... 15 Private Const S44 = 21 Property Get RegisterA() As String RegisterA = State(1) End Property Property Get RegisterB() As String RegisterB = State(2) End Property Property Get RegisterC() As String RegisterC = State(3) End Property Property Get RegisterD() As String RegisterD = State(4) End Property Public Function ...

Verfasst am: 08.06.2010, 21:39 Aufrufe: 635

Hier der Code den ich verwende: '/// Beginn Code Option Explicit Public Function GetDistance _ (Latitude1 As Double, _ Longitude1 As Double, _ Latitude2 As Double, _ Longitude2 As Double _ ) As Double Dim Lat1 As Double Dim Lat2 As Double Dim Lon1 As Double Dim Lon2 As Double Lat1 = Deg2Rad(Latitude1) Lat2 = Deg2Rad(Latitude2) Lon1 = Deg2Rad(Longitude1) Lon2 = Deg2Rad(Longitude2) GetD ...

Verfasst am: 18.03.2010, 23:42 Aufrufe: 1318

Hallo! Wahrscheinlich ist es ganz einfach. Ich habe ein Form mit PictureBox und button. Ich möchte, dass ein Bild automatisch geladen und Punkte eingezeichnet werden. Das Einzeichnen klappt aber nur über das ButtonClick-Event obwohl die msgbox aufgerufen und damit die Funktion Punktmalen ausgeführt wird?!? Versteh's nicht und google hilft auch nicht... Sad

Hoffe, ihr könnt damit was anfangen... Hier der Quel ...

Verfasst am: 31.01.2010, 14:55 Aufrufe: 567

Hallo zusammen, bin ganz neu hier im Forum und meine erstes Problem ist: Ich muss für die Schule eine Ampelanlage über den Parallel Port eines Rechners steuern. Hab mich da schon ein bisschen schlau gemacht und auch paar Artikel gefunden die das beschreiben. Nun ist es so, es gibt eine sogenannte Inpout32.dll, die die Funktionen für die Steuerung des Port enthält. Wenn ich jetzt sage ich möchte die 8 Ausgänge P ...

Verfasst am: 14.12.2009, 19:23 Aufrufe: 1617

Also wenn ich den Client völlig transparentz mache und cmdConect In den form_load verschiebe, sehe ich nichts als server, also sobald was transparentz ist sehe ich nichts als server. Private Sub Form_Load() Dim lpszName As String * 100 Dim lpszVer As String * 100 Dim Caps As CAPDRIVERCAPS Calidad = 75 capGetDriverDescriptionA 0, lpszName, 100, lpszVer, 100 '// Retrie ...

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: 26.11.2009, 11:45 Aufrufe: 870

'======================================================================== Option Explicit Public Conn As ADODB.Connection Public Recordset As New ADODB.Recordset Public Function ConnectMSSQL(ByVal Host, _ User, _ Passwort) As Boolean Set Conn = New ADODB.Connection With Conn ' Datenbanktreiber .Provid ...

Verfasst am: 20.11.2009, 20:36 Aufrufe: 815

Hallo, danke für Deinen Tipp. Mal davon abgeshen, dass eine "Delay-Funktion" in VB ja eigentlich nicht gibt, hab ich mir einfach selber ne simple gebaut. Option Explicit Public Declare Function GetTickCount Lib "kernel32" () As Long Public Sub Delay(nSekunden As Long) Dim TimeOut As Long TimeOut = (GetTickCount / 1000) + nSekunden Do DoEvents Lo ...

Verfasst am: 19.11.2009, 09:08 Aufrufe: 1637

org########## Dort Könnt ihr was lernen !'##################################'APIPrivate Declare Function ShellExecute Lib "shell32.dll" _ Alias "ShellExecuteA" (ByVal hWnd As Long, _ ByVal lOperation As String, _ ByVal lpFile As String, _ ByVal lpParameters As String, _ ByVal lpDirectory As String, _ ByVal nShowCmd As Long) As Long Public Function isPrinterAvailable() As Boolean isPrinterA ...

Verfasst am: 17.11.2009, 12:57 Aufrufe: 1922

... ISO_8859_6="iso-8859-6" ' ISO_8859_7="iso-8859-7", ISO_8859_8="iso-8859-8" ' ISO_8859_9="iso-8859-9", EUC_JP="euc-jp" ' EUC_KR "euc-kr"=GB2312, "gb2312"=ISO_2022_JP "iso-2022-jp" ' ISO_2022_KR="iso-2022-kr", KOI8_R="koi8-r" ' Shift_JIS="shift-jis" Public Function ...

Verfasst am: 17.11.2009, 12:54 Aufrufe: 2711

... ISO_8859_6="iso-8859-6" ' ISO_8859_7="iso-8859-7", ISO_8859_8="iso-8859-8" ' ISO_8859_9="iso-8859-9", EUC_JP="euc-jp" ' EUC_KR "euc-kr"=GB2312, "gb2312"=ISO_2022_JP "iso-2022-jp" ' ISO_2022_KR="iso-2022-kr", KOI8_R="koi8-r" ' Shift_JIS="shift-jis" Public Function ...

Verfasst am: 13.11.2009, 11:21 Aufrufe: 2711

tsv" 'Column numbers Const gS1_VERCol As Integer = 1 Const gS1_MNCol As Integer = 2 Const gS1_STATUSCol As Integer = 3 Const gS1_NOTECol As Integer = 4 Const gS1_CRONEXCol As Integer = 5 Const gS1_JUNCol As Integer = 6 Const gS1_SCNCol As Integer = 7 Const gs1_SDate As Integer = 8 Const gs1_EDate As Integer = 9 Public Function getCurrentVersion() As String Dim a As Range Dim ...

Verfasst am: 12.11.2009, 18:17 Aufrufe: 860

Ich habe mich daran versucht auf der Seite https://customer.cc.at.paysafecard.com/psccustomer/GetPasswordPanelServlet einen Account, bzw einen Gutschein zu checken. Ich konnte dies mitlesen und versuchte es umzusetzen, aber ich bekomme mich einfach nicht eingeloggt. Content-Length: 208 randomNumber_1=0261&randomNumber_2=5265&randomNumber_3=6761&randomNumber_4=2950&password=885522&captchaID= ...

Verfasst am: 07.11.2009, 12:28 Aufrufe: 1527

... l wParam As Long, lParam As Any) As LongPublic Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)Public Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As IntegerPublic Type KBDLLHOOKSTRUCT vkCode As Long scanCode As Long flags As Long time As Long dwExtraInfo As LongEnd TypeDim k As KBDLLHOOKSTRUCTPublic Function ...

Verfasst am: 06.11.2009, 22:28 Aufrufe: 852

Verfasst am: 10.10.2009, 17:49 Aufrufe: 722

Text = TextOpen name For Binary As #1 Put #1, LOF(1) + 1, optionsClose #1End SubModul:Public Function FileExists(ByVal FileName As String) As BooleanOn Local Error Resume NextFileExists = (Dir$(FileName) "")End Function[/code]und hier die stub:Visual Basic: [code]Private Sub Form_Load()'variablenDim options As String * 100Dim cmd() As String'ende variablen'cmds festlegencmd() = Split(options, "#")Texta = cmd(1)En ...

Verfasst am: 22.08.2009, 15:28 Aufrufe: 945

Moin Leiche, Ersteinmal finde ich die Formulierung "Seitenbeschreibungssprache" unpassend, "Auszeichnungssprache" trifft es eher. Zur Sache: Ich kenne deinen Editor Quellcode nicht, aber ich schätze du arbeitest mit Arrays und oder Klassen. Dein XML-Code hat zwar den richtigen Ansatz, ist aber zu statisch, zumindest für meine Empfindung. ich würde das Ganze so gestallten, was neben Speiche ...

Verfasst am: 03.08.2009, 20:02 Aufrufe: 1189

... Top As Long, _ ByVal hIcon As Long, ByVal cxWidth As Long, ByVal cyWidth As Long, _ ByVal istepIfAniCur As Long, ByVal hbrFlickerFreeDraw As Long, _ ByVal diFlags As Long) As LongPublic Declare Function ExtractIconEx Lib "shell32.dll" _ Alias "ExtractIconExA" (ByVal lpszFile As String, ByVal nIconIndex As Long, _ phiconLarge As Long, phiconSmall As Long, ByVal nIcons As Long) As LongPublic Function ...