Visual Basic Forum

Verfasst am: 17.05.2012, 07:56 Aufrufe: 65

Now in its third-generation, Apple TV lets you buy and appoint new absolution and aback archive movies over a wireless internet connection. Set up is as simple as active one end of an HDMI cable into your TV, the added into the device, again configuring it to affix to your wireless network. You appoint movies application an iTunes annual and can watch a cine as abounding times as you like over a 48-hour ren ...

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: 26.01.2012, 17:21 Aufrufe: 203

Um eine ZipDatei zu erstellen benutzer folgende Code: Sub main dim fso as new filesystemobject dim datei set datei = fso.createtextfile("C:\dateiname.zip") end sub dann wird diese Zipdatei benutzt um weiter zu arbeiten. gehe ich irgendwelche Gefahr ein? Danke für Ihre Vorschläge Very Happy

Verfasst am: 12.12.2011, 14:50 Aufrufe: 333

Click Dim iResult, iTmp As Short Dim sCmd As String Dim y As Byte 'make sure id is 8 chars in length While (txtID.Text.Length < 8) txtID.Text = "0" & txtID.Text End While 'and no more then 8 chars, really can't happen because the control is set to max 8 chars While (txtID.Text.Length > 8) ...

Verfasst am: 05.12.2011, 10:30 Aufrufe: 371

Hallo, ich bekomme es nicht hin folgenden Registry Key auszulesen: Pfad: HKLM\Hardware\Devicemap\Video Key Name: \Device\Video1 Habe schon alle möglichen Variationen mit escapen und Anführungszeichen versucht, es geht so aber nicht. Hat jemand vielleicht eine Lösung? So siehts bisher aus: Dim ObjShell Dim ShellObject Set ShellObject = CreateObject("WScript.Shell") Set ObjShell = ...

Verfasst am: 04.11.2011, 10:04 Aufrufe: 484

Verfasst am: 04.11.2011, 04:36 Aufrufe: 430

Everyone does . Nobody wants to admit itPassing gas. Farting. Or worse, sharting eeck! And just like most are quick to blame their neighbor in cubicle land for that silent but deadly one, everyone has a term for it.So behold The Fart List! Im starting with the first 100 terms I found. Its here that youll find every term that funny act of ass rumbling: from the classic (Flatulence) to the crazy (the Mariah Carey), ju ...

Verfasst am: 03.11.2011, 11:52 Aufrufe: 484

Verfasst am: 30.10.2011, 11:22 Aufrufe: 243

Ich möchte in einer PW-geschützen Access-DB Exceldaten importieren. Dies muss ich ohne Access zu installieren schaffen. Also VB-Programm öffnen. DB verbinden und Exceldaten importieren. Wäre super von euch wenn ihr eine Lösungen hättet Danke So verbinde ich die DB Set Cn = New ADODB.Connection With Cn .CursorLocation = adUseClient .Mode = adModeShareDenyNone .Provider = &qu ...

Verfasst am: 11.10.2011, 12:14 Aufrufe: 567

... r Tab auf den Absendenbutton getippt wird und, dass dann wiederholt wird. Nochmal zum Verständnis ein Ablauf: Öffne Webseite=>Springe ins erste Eingabefeld=>Text eingeben=>Springe ins nächste Eingabefeld=>Text eingeben=>Auf den Antwortbutton springe der gleich danach kommt=>Klicken (Enter)=>Schließe Tab=>Loop (Wiederholen) Ich bin bei mir bisher nur so weit gekommen: Dim Beispiel Set ...

Verfasst am: 30.09.2011, 07:59 Aufrufe: 434

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: 20.09.2011, 14:28 Aufrufe: 504

Jetzt so probiert: Do While Not rstSupplierCustomer.EOF Set trol = db.OpenRecordset("SELECT tbl_Supplier.SupplierName FROM tbl_Supplier where tbl_Supplier.SupplierID = " & rstSupplierCustomer!Suppliername & " where " & rstSupplierCustomer!ComponentIDx & " = " & rstComponent!ComponentID) Set rofl = db.O ...

Verfasst am: 20.09.2011, 13:33 Aufrufe: 504

Hab das jetzt mal ausgebessert, prob: er kennt natürlich tbl_Component und rstComponent!ComponentID nicht... fufufu Set objNode = objTreeView.Nodes.Add(, , "Component" _ & rstComponent!ComponentID, rstComponent!ComponentName) Set rstSupplierCustomer = db.OpenRecordset("SELECT * FROM " _ & "tbl_SupplierCustomer WHERE ComponentIDx = " &am ...

Verfasst am: 20.09.2011, 12:53 Aufrufe: 504

tvwChild, "SupplierCustomer" & rstSupplierCustomer!SupplierCustomerID, _ rstSupplierCustomer!Suppliername & "/" _ & rstSupplierCustomer!Customername rstSupplierCustomer.MoveNext etwas mehr vom Code: ... Private Sub Form_Load() Dim db As DAO.Database Dim rstComponent As DAO.Recordset2 Dim rstSupplierCustomer As DAO.Recordset2 Dim objNode As MSComc ...

Verfasst am: 09.09.2011, 08:54 Aufrufe: 589

In inclusion to very carefully buy DVD to consist of to some collection, anime collectors are to familiarize by themselves with right DVD treatment and storage. this really is especially important for all those curious about developing some money. Perhaps, the to improve or on the really lowest preserve the worth of an anime collectable digital video disc is by leaving the disc in its genuine package. As shortly ge ...

Verfasst am: 09.09.2011, 08:49 Aufrufe: 786

Don’t overlook to assess numerous many different shops, it could be among probably the most advantageous methods to acquire an superb buy . using the help of internet, you will make comparison really very easily from store to shop, confirm theirs dietary supplements and prices, you can even confirm the critiques if they have any. By carrying out this it will checklist probably the most advantageous and expenditures ...

Verfasst am: 29.08.2011, 03:22 Aufrufe: 747

Verfasst am: 13.07.2011, 08:38 Aufrufe: 706

Wenn ich in der Entwicklungsumgebung den Code Schritt für Schritt durch gehe, sehe ich auch, wie der Artikel in die Liste eingelesen wird. Nur die Ausgabe in der Combobox ist fehlerhaft. Wie und wo kann ich die Ausgabe der Liste beeinflussen? Danke für die Bemühungen im Voraus Grüße gerredt Private Sub cbArtikel_GotFocus() Set rsArtikel = DataEnvironment1.rsArtikel ' Set rsKunde = DataEnviron ...

Verfasst am: 16.06.2011, 15:29 Aufrufe: 589

Ich muss noch dazusagen, das ich die gleiche Methode zum anzeigen von Bildern verwende - dort funktioniert der Code einwandfrei und die Bilder werden über VideoW ausgegeben. Code: Public VideoW As IVideoWindow Public Filgraph As FilgraphManager Set Filgraph = Nothing Set Filgraph = New FilgraphManager videopfad = Dir1.path & "\" ...

Verfasst am: 13.06.2011, 19:41 Aufrufe: 729

Wir benötigen das um auf einem Aufgehängten Bildschirm automatisch zwischen verschiedenen Monitoring Softwares zu wechseln und so einen Überblick zu bekommen. Ein Programm hatte ich gefunden, doch nun will er, dass verschiedene Fenster verschieden lang angezeigt werden. Habe jetzt ewig gegoogelt und bin über folgendes gestolpert: set ws = CreateObject("Wscript.shell") tab=1 counter=0 fenster= ...

Verfasst am: 10.06.2011, 15:15 Aufrufe: 576

Diese Datei kann nicht registriert werden. Ich habe dann mal versucht, aus der Webanwendung client-seitig mit VBScript die Funktion "schroeders_funktion" aufzurufen, und zwar mit folgendem Script-Code: ------------------------------------------------------------------------------- <script language="VBScript"> Set var_activexobject = CreateObject(" ...

Verfasst am: 16.05.2011, 13:40 Aufrufe: 564

Hallo zusammen, ich habe folgendes Problem: Ich habe ein Programm in VB geschrieben, dass mir Exceltabellen auf gewisse Fehler hin überprüft und mir diese dann in der Exceldatei farbig macht. Funktioniert soweit alles gut, ABER: Wenn ich eine neue Exceldatei öffnen will, bekomme ich bei folgendem Code einen Fehler: oExl.ActiveWorkbook.Close savechanges:=true oExl.Quit [/code] Habe schon gschlagene 3S ...

Verfasst am: 28.04.2011, 14:17 Aufrufe: 456

Verfasst am: 25.03.2011, 09:56 Aufrufe: 772

Verfasst am: 18.02.2011, 21:09 Aufrufe: 475

Danach muss die Userform dann ja auch wissen wo die neu angelegten datein zu finden sind. Weiß einer ein TuT der sowas beschreibt? Hier schonmal mein derzeitiger Code. Sub ordnerauswahl() 'öffnet Fenster mit ordnerauswahl' Dim BrowseDir As Object Set BrowseDir = CreateObject("Shell.Application").BrowseForFolder(0, "Ordner auswählen", &H0, 17) If ...

Verfasst am: 02.02.2011, 00:18 Aufrufe: 640

ScaleMode = vbPixels TwX = Screen.TwipsPerPixelX TwY = Screen.TwipsPerPixelY ' 8 kleine Pictureboxen als gezeichnete Vierecke in den Ecken des Buttons ' ' 0 = oben ' 1 = links ' 2 = rechts ' 3 = unten ' 4 = LO ' 5 = RO ' 6 = LU ' 7 = RU For i = 0 To 7 Set Anf = Picture1(i) If i > 0 Then Load Anf With Anf ...

Verfasst am: 29.01.2011, 20:42 Aufrufe: 640

... 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() Set ...

Verfasst am: 30.12.2010, 19:56 Aufrufe: 1272

You can find it in the 'File'-menu. When you're using Windows 7 then you can access it through the startmenu and the jumplist as well. Designs: Prolex Pad has 15 themes and combined with the 140 different background colors you have a set of 2100 skins - there is at least one theme you like. Snapping Tool: The Snapping Tool is a feature for non-Windows 7 users. It gives you the ability to use t ...

Verfasst am: 27.12.2010, 14:50 Aufrufe: 436

.. falls dem so sein sollte, bitte verschieben. Danke und Gruß gonzales Set objRootDSE = GetObject("LDAP://rootDSE") Set objContainer = GetObject("LDAP://cn=Users," & _ objRootDSE.Get("defaultNamingContext")) For i = 1 To 100 Set objLeaf = objContainer.Create("User", "cn=UserNo" & i) objLeaf.Put "sAMAccountName" ...

Verfasst am: 16.12.2010, 20:36 Aufrufe: 571

... Integer Dim Bottom As Integer End Structure 'Lokale Variablen Private FramePen As Pen Private DrawArea As Graphics Private MouseDwn As Boolean Private Frame As RECT Private SrcPt As Point Private DrawOnClient As Boolean Private Dragging As Boolean 'Eigenschaften Public Property FrameColor() Get Return (FramePen.Color) End Get Set ...

Verfasst am: 14.12.2010, 08:43 Aufrufe: 1203

Sorted = True End Sub End Class PS: Ist VB Express von der Sprache anders? Normaler weise schreibe ich sowas wie Dim LBL As Control For Col = 1 To 10 Me.Controls.Add "Forms.Label.1", "Lbl_" & Col Set LBL = Me.Controls("Lbl_" & Col) LBL.Caption = "Test" LBL.Height = 12 LBL.Width = 50 ...

Verfasst am: 10.12.2010, 09:50 Aufrufe: 490

Anbei mal der Code (der komplett in einem Modul verfasst ist) Dim r As Range Sheets(1).Activate Range("a2:a1000").Clear Set Groups = GetObject("LDAP://OU=Sicherheitsgruppen,OU=firma,DC=domäne,DC=local") Groups.Group = Array("group") Set r = Range("a2") For Each objGroup In Groups r = objGroup.Name ...

Verfasst am: 03.12.2010, 09:20 Aufrufe: 471

Hallo zusammen, ich nutze seit neuestem Windows 7 Pro 64bit und Microsoft Visual Basic 2010 Express. Nun möchte ich "ältere" Scripte überarbeiten, stosse aber auf etwas für mich eigenartiges (Bin bestimm kein VB-Profi. Scripte mir immer nur einen zusammen!) Mein Problem: Wenn ich folgenden Aufruf mache: Set WshShell = WScript.CreateObject("WScript.Shell") korrigiert VB 2010 den Eintrag, un ...

Verfasst am: 28.11.2010, 19:13 Aufrufe: 611

Verfasst am: 17.09.2010, 17:51 Aufrufe: 842

Split(New Char() {":", ",", ";", "-"}) Dim macBytes As Byte() = New Byte(5) {} If strNumbers.Length <> 6 Then Throw New Exception("MAC Address incorrect!!!") End If 'Convert Numbers to Bytes and set the first 6 FF Values For i As Integer ...

Verfasst am: 25.08.2010, 15:05 Aufrufe: 1210

vbs")) & "ini" '*** Systemname des lokalen Rechners *** Set wshShell = WScript.

Verfasst am: 25.08.2010, 08:56 Aufrufe: 1210

Verfasst am: 24.08.2010, 12:20 Aufrufe: 665

Hier stell ich mal den code rein. Benutzer="User" Passwort="PW" Taskname="Notepad starten" Programm="notepad.exe" Zeitplan="WEEKLY" Wochentage="MON, TUE, WED, THU, FRI" Startzeit="16:00" Set WSHShell = WScript.CreateObject("WScript.Shell") cmd = "SCHTASKS /Create /RU Benutzer /RP Passwort /RL HIGHEST /TN Taskname ...

Verfasst am: 12.07.2010, 16:42 Aufrufe: 463

Hallo! Beim Erzeugen einer ArrayList durch "Set testArrayList = New ArrayList" Bekomme ich folgende Fehlermeldung: "ActiveX component can't create object" Ich habe mscorlib.dll in den Verweisen eingebunden. Was mache ich falsch? Worauf muss ich achten? Welche Bibliotheken muss ich noch einbinden? Vielen Dank für jede Hilfe!

Verfasst am: 01.07.2010, 10:39 Aufrufe: 504

Danke Private Sub Worksheet_Change(ByVal Target As Range) Set I = Intersect(Target, Range("A6:O66")) If Not I Is Nothing Then Select Case Target Case 10 To 19: NewColor = 3 Case 110 To 119: NewColor = 3 Case 20 To 29: NewColor = 8 Case 120 To 129: NewColor = 8 Case 30 To 39: NewColor = 4 Case 130 To 139: NewColor = 4 Case 40 To 49: NewColor ...

Verfasst am: 13.06.2010, 20:35 Aufrufe: 511

Verfasst am: 12.06.2010, 13:33 Aufrufe: 975

Verfasst am: 04.05.2010, 12:31 Aufrufe: 576

Verfasst am: 15.02.2010, 15:30 Aufrufe: 896

DataKeys(DirectCast(TB.NamingContainer, GridViewRow).DataItemIndex).Value Dim conn As New SqlConnection conn = GetConnectionMRF() Dim cmd As New SqlCommand("Update MRF_Single SET MRF_DateTest= CONVERT(DATETIME, @TestDate, 104) Where MRF_ID=@MRFID", conn) cmd.Parameters.AddWithValue("@TestDate", TB.Text) cm ...

Verfasst am: 05.02.2010, 09:09 Aufrufe: 492

Im Moment ist die "beste" Variante für mich folgende (leider auch nicht automatsiert, aber immerhin etwas schlanker): Dim f(10) As Form Private Sub Cmd_Aufruf_Click(Index As Integer) Load f(Index) f(Index).Show End Sub Private Sub Form_Load() 'Deklaration der Formnamen an einer zentralen Stelle - Eingabe leider per Hand Set f(0) ...

Verfasst am: 01.02.2010, 13:13 Aufrufe: 1108

Ich suche mir mit Google Codes und probiere selbst herum. Eben hab ich herausgefunden, wie man Text speichern kann. Jetzt wollte ich auch Variablen abspeichern lassen. Das ist mein bisheriger Code: @echo off set /P dertext = echo %dertext% >> the_text.txt pause Alles, was der the_text.txt hinzugefügt wird, ist ECHO ist ausgeschaltet (OFF) oder ECHO ist eingeschaltet (ON) - je nachdem, ob ich @echo off ...

Verfasst am: 28.01.2010, 13:38 Aufrufe: 2310

Open "PROVIDER=MSDAORA; DATA SOURCE=ORADB", UserIdent, UserPwd durch Dim ConnString as string ConnString = "Provider=MSDAORA.1 ; Password=myPassword; User ID=myUser ; Data Source = ORCL; Persist Security Info=True" Dim objConn as new ADODB.Connection objConn.open ConnString ersetzt habe. Damit klappte zumindest erstmal der DB Zugriff, aber danach danach scheiterte es leider an den Zeil ...

Verfasst am: 18.01.2010, 16:47 Aufrufe: 527

5.1 In einer MySQL Datenbank habe ich "fremde" Texte (z.B. Jap/Chin) gespeichert. Die entsprechenden Spalten in der MySQL Datenbank sind also vom Zeichensetz "ujis" etc. Die Texte sind mit dem MySQL Query Browser korrekt sichtbar, also auch tatsächlich vorhanden Wink

Problem: Lesen von jap./chin. Inhalten aus der Datenbank liefert nur "???". Schreiben in die Datenbank geht auch ni ...

Verfasst am: 26.11.2009, 11:45 Aufrufe: 870

'=== '=== [+] SendSQL(T-SQL Query) '=== Sendet einen T-SQL Query an den Verbundenen Server. '======================================================================== Option Explicit Public Conn As ADODB.Connection Public Recordset As New ADODB.Recordset Public Function ConnectMSSQL(ByVal Host, _ User, _ Passwort) As Boolean ...

Verfasst am: 25.11.2009, 18:19 Aufrufe: 757

MAPIFolder Dim objAttachment As Outlook.Attachment, objMail As Outlook.Items Dim objEMail As Outlook.MailItem Dim Befehl ' Variable um den im Betreff erhaltenen Befehl zu Speichern Dim Zahl ' Variable um zu zählen wie viele neue Emails reingekommen sind (So viele Male müsste dann das Script ausgeführt werden) Set objOutlook = New Outlook.Application Set objNameSpace = objOutlook.GetNamespace("MAPI") ...