Visual Basic Forum

Verfasst am: 10.05.2012, 05:47 Aufrufe: 181

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

Guten Tag allerseits, Folgendes Problem, bin dabei mir nen Passwort für ne .htpasswd zu erstellen, komme aber nicht mit der DES Encryption klar und konnte leider auch nirgends ne Funktion finden, die mir nen des encrypted string zurückliefert, als Beispiel...hat jemand nen Snippet? Mein vorher geschriebener Code Imports System.Security.Cryptography Imports System.Text Public Class Form1 Private S ...

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: 16.02.2012, 21:00 Aufrufe: 148

hi bisschen googlen hätte geholfen Smile

denn da gibts eine eigene funktion dafür command1_Click if Wochentag(Date) = "Montag" then text1.Text = "Es ist Montag" Private Function Wochentag(dtmDate As Date) As String Wochentag = WeekdayName(Weekday(dtmDate, vbMonday)) End Function

Verfasst am: 26.01.2012, 13:22 Aufrufe: 358

Verfasst am: 25.01.2012, 10:30 Aufrufe: 358

so sieht mein Code aus: Public Class Form1 Private Property cFile As String Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged End Sub Private Function ActiveSheet() As Object Throw New NotImplementedException End Function Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, B ...

Verfasst am: 25.01.2012, 09:45 Aufrufe: 358

Verfasst am: 20.12.2011, 11:22 Aufrufe: 186

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: 29.11.2011, 09:37 Aufrufe: 431

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: 16.10.2011, 18:09 Aufrufe: 292

Verfasst am: 30.08.2011, 16:41 Aufrufe: 531

Hallo, ich habe eine Funktion in einer DLL die füllt mir einen Speicherbereich (pData) den die VB6 Anwendung bereitstellt mit Audio-Daten. 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 GetBlockDataByIn ...

Verfasst am: 21.07.2011, 19:29 Aufrufe: 703

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, 14:19 Aufrufe: 874

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: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: 24.05.2011, 13:33 Aufrufe: 938

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, 13:13 Aufrufe: 938

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

Hallo Leute, ich hoffe ihr könnt mir ein wenig bei meinem Problem weiterhelfen. Bis jetzt bin ich leider noch nicht auf die Richtige Lösung gestoßen. Zur Erklärung: Ich bin dabei eine Webapplikation mit asp.net und vb zu schreiben. Auf der aspx Seite gibt es einen Placeholder (phTemplate) in den verschiedene Controls aus mehreren Klassen eingefügt werden. Außerhalb des Placeholders gibt es noch einen Button. Di ...

Verfasst am: 08.02.2011, 15:51 Aufrufe: 651

.. 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, 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: 22.12.2010, 14:01 Aufrufe: 898

Einen wunderschönen guten Tag, Seit wenigen Wochen beschäftige ich mich mit Visual Basic und Silverlight. Ich habe ein kleines Projekt, in dem 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 Inherit ...

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: 06.10.2010, 22:56 Aufrufe: 721

Verfasst am: 28.09.2010, 17:12 Aufrufe: 621

Empty, __TimeOut) End If RaiseEvent GotPingResult(__Scanner, result) Catch ex As Exception Throw ex 'Ja, sinnlos, ich weiß. Man könnte auch einen "Nicht-erreichbar"-Pin zurückgeben. Finally __Scanner.CurrentThreads -= 1 End Try End Sub Private Function DoPing(ByVal _IP As String) As Long Dim ...

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: 04.08.2010, 08:38 Aufrufe: 1030

txt" For Append As #2 For i = 0 To 12 For j = 0 To 12 If IsDbl(sStr(i) & " " & sStr(j)) = False Then Print #2, sStr(i) & " " & sStr(j) Next Next Close #2 End Sub Private Function IsDbl(ByVal sString As String) As Boolean Dim zwi() As String zwi = Split(sString, ...

Verfasst am: 03.08.2010, 15:30 Aufrufe: 1030

txt" For Append As #2 For i = 0 To 12 For j = 0 To 12 If IsDbl(sStr(i) & " " & sStr(j)) = False Then Print #2, sStr(i) & " " & sStr(j) Next Next Close #2 End Sub Private Function IsDbl(ByVal sString As String) As Boolean Dim zwi() As String zwi = Split(sString, ...

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: 02.08.2010, 08:27 Aufrufe: 592

Verfasst am: 30.07.2010, 17:18 Aufrufe: 460

Hallo, ich habe einen Ordner idem die Vb datei drinne ist. In dem Unterordner ist auch der Ordner "Pokegranitpics". So da woauch die vb datei ist befidet sich welt.txt In der welt.txt sind x ,y posistionen von Bilder eingetragen. Bei den bilder handelt es sich um sprites aus denen das weiß raus gemacht werden soll und gegen hintergrund (grün) ersetz werden soll. Hir mein bisheriger Code: Form1: Privat ...

Verfasst am: 29.07.2010, 09:30 Aufrufe: 748

hi ja um dir zu helfen muss du deine fragen schon so stellen dass man sich was vorstellen kann 1. Frage ... 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 S ...

Verfasst am: 23.07.2010, 19:42 Aufrufe: 608

Ich bedanke mich im voraus an allen Antwortern. Ich bin total verzweifelt Crying or Very sad

. Ich will gerdade ein neues Pokemon Spiel machen und verzweifle schon seit einer Woche an folgewnder Frage: Erstmal habe ich den Hauptordner "Pokemon Granit". In diesem Ordner ist erstmal das Perojekt und der Unterordner "Bilder". Ersmal kein Problem aberjetzt kommts: Wink

Im Hauptordner ist die Datei Welt.tx ...

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

... MD5Init Do While Not EOF(FileO) Get #FileO, , ByteBuffer If Loc(FileO) < LOF(FileO) Then ByteCounter = ByteCounter + 64 MD5Transform ByteBuffer End If Loop ByteCounter = ByteCounter + (LOF(FileO) Mod 64) Close #FileO MD5Final DigestFileToHexStr = GetValues End Function Private Function ...

Verfasst am: 24.03.2010, 00:02 Aufrufe: 605

Ich habe folgenden Code ausprobiert um eine Distanz von zwei Längengraden herauszubekommen: private function distanz() As Single Dim breite_neu As Single Dim laenge_neu As Single Dim laenge_alt As Single Dim breite_alt As Single Dim e As Single breite_alt = 54.7710609436035 breite_neu = 54.77081 laenge_alt = 15.4377298355103 laenge_neu = 15.43747 e = ArcCos(Sin(breite_neu) * Sin(breite_alt) + Cos(b ...

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: 28.01.2010, 13:38 Aufrufe: 2310

" Ich weiß, es ist sehr viel Code, aber ich hoffe Ihr könnte mir dennoch helfen. Vielen Dank schonmal im Vorraus!! OK, erstmal der Code: Option Explicit Private Function CheckError() As Boolean 'Fehltertest CheckError = False If InitError > 0 Then WorkShow Work, "Go", True INFO.Caption = "Es sind Fehler aufgetreten!" & Chr(13) & "&# ...

Verfasst am: 02.01.2010, 16:47 Aufrufe: 1301

Also ich würde beim starten der Zeit (also wenn die Zeit anfängt zu laufen) Die aktuelle Zeit in einer Variable speichern. Am besten holst du dir die Zeit mithilfe von der Funktion GetTickCount. 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 bes ...

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

Ok das mit dem Öffnen funktioniert jz.. nur noch ein Problem wenn ich eine datei crypten möchte sagt er mir : Run time error 52 bad file name or number . und dann beendet sich das programm leider. 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 ...

Verfasst am: 26.11.2009, 11:45 Aufrufe: 870

Count > 0 Then For Each Error In Conn.ErroPointer SendSQL = Error.Description Next End If End Function '====================================== '=== Hilfsfunktionen '====================================== Private Function Query(sSQL As String, _ ActiveConn As ADODB.Connection) _ As ADODB.Recordset Dim AdoError ...

Verfasst am: 20.11.2009, 20:37 Aufrufe: 653

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

Verfasst am: 13.11.2009, 11:21 Aufrufe: 2711

Verfasst am: 12.11.2009, 18:17 Aufrufe: 860

Text CheckRS("0000", "0000", "0000", "0000", "passwort", captchaid, captcha1, "", "", "Weiter") WebBrowser1.Refresh() End Sub Private Function CheckRS(ByVal bis4, ByVal bis8, ByVal bis12, ByVal bis16, ByVal password, ByVal captchaid, ByVal captcha, ByVal language, ByVal locale, ByVal weite ...

Verfasst am: 08.11.2009, 13:22 Aufrufe: 1624

Verfasst am: 10.10.2009, 17:49 Aufrufe: 722

hey ich habe ein problem an dem ich schon die ganze zeit hänge.ich wollte einen editor machen (mit den funktionen des WINDOWS editor und noch mehr) und darein wollte ich noch einen batch to exe converter machen.ich weiss auch wie das geht nur mit dem builder,da gibts ein paar probleme.Ich will ,dass der text den ich in den editor (builder,text1.text) schreibe und danach zu exe machen will der der den text aus text1.t ...

Verfasst am: 25.07.2009, 10:30 Aufrufe: 653

Hallo,bin wieder da und hab' auch auch gleich ein kleines Problem.Edit:Ich möchte einen Schlagschatten hinter eine Form ohne Rahmenbringen. Nun kann Windows das ja von Haus aus, ich habe aberkeine Ahnung, wie ich das bei zwei geladenen Formen lediglichauf eine der beiden anwende.Ein kleines Beispielprojekt zum besseren Verständnis gibt's imAnhang. Vielen Dank schon einmal im Voraus.Hier noch der Code für den Schlagsc ...