Visual Basic Forum

Verfasst am: 17.05.2012, 07:56 Aufrufe: 63

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: 23.04.2012, 18:32 Aufrufe: 67

... datei As String Dim dateiname As String Dim open As String Dim requestStream As Stream = Nothing Dim fileStream As FileStream = Nothing Dim uploadResponse As FtpWebResponse = Nothing Anzeigebereich.Text = Anzeigebereich.Text & " " & My.Settings.Benutzer.ToString & " " & DateTime.Now.ToString pfad = Application ...

Verfasst am: 02.04.2012, 13:06 Aufrufe: 147

Unprotect Password:="GBF#1" Worksheets("Einzel_Nachweis_gesamt").Unprotect Password:="GBF#1" Worksheets("End_Verwendungsnachweis").Unprotect Password:="GBF#1" If Application.EnableEvents = True Then Application.EnableEvents = False End If abschluss_flag = True ret = MsgBox("Soll auch der Verwendungsnachweis ...

Verfasst am: 04.01.2012, 11:13 Aufrufe: 277

PushFrameImpl(DispatcherFrame frame) bei System.Windows.Threading.Dispatcher.PushFrame(DispatcherFrame frame) bei System.Windows.Threading.Dispatcher.Run() bei System.Windows.Application.RunDispatcher(Object ignore) bei System.Windows.Application.StartDispatcherInBrowser(Object unused) bei System.Windows.Threading.ExceptionWrapper.InternalRealCall(Delegate callback, Object args, Int32 numArgs) ...

Verfasst am: 04.11.2011, 10:04 Aufrufe: 484

Verfasst am: 03.11.2011, 11:52 Aufrufe: 484

Verfasst am: 02.11.2011, 21:54 Aufrufe: 451

Click WebBrowser1.Navigate("www.pennergame.de") Me.Text = "Working..." Application.DoEvents() Do While WebBrowser1.ReadyState <> WebBrowserReadyState.Complete Application.DoEvents() Loop WebBrowser1.Refresh() Me.Text = "Seite wurde geladen" Me.Curso ...

Verfasst am: 20.07.2011, 17:09 Aufrufe: 772

Damit speichert VB die Daten aus der Textbox in bestimmte Zellen von Excel. Ich habe auch schon gegoogelt und folgenden Programmcode entdeckt: Visual Basic Quellcode Public Class Form1 Dim Test As New Microsoft.Office.Interop.Excel.Application Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Test.Workbooks.OpenXML("Der Pfad der date ...

Verfasst am: 13.07.2011, 18:33 Aufrufe: 526

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

Verfasst am: 02.06.2011, 22:21 Aufrufe: 447

Statt doEvents muss man hier application.doEvents nehmen, da das normale doEvents in vb.Net so nicht mehr Existiert Wink

Verfasst am: 24.05.2011, 13:33 Aufrufe: 936

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

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

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

Verfasst am: 25.03.2011, 01:11 Aufrufe: 1244

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.ExecutablePath) Private Sub Button2_Click(By ...

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: 15.02.2011, 15:24 Aufrufe: 1086

.. 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 aus: Private WithEvents CodesoftApplication As LabelManager2.Application = Nothing Private WithEvents MyActiveDocument As LabelManager2.Document = Nothing Private Sub LblDruck_Click(ByVal sender As System.Object, ByVal e As System ...

Verfasst am: 13.01.2011, 07:24 Aufrufe: 676

Der Code 'Pfad und Name der XLS-Zieldatei Exceldatei = Arbeitsverzeichnis & "\" & Datum_String & "_" & Uhrzeit_String & "_Reglerdaten.xls" 'Öffne Exceldatei Excel_Ziel_Datei = CreateObject("Excel.Application") bleibt hier bei der letzten Zeile stehen mit Meldung "Die ActiveX-Komponente ka ...

Verfasst am: 14.12.2010, 13:57 Aufrufe: 345

Hallo Leute, ich möchte in der Inbox eines Postfachs (nicht mein eigenes), bestimmte Mails nach Betreff und dem Status "ungelsesen" filtern. Folgenden Code habe ich schon: Private Sub ThisApplication_NewMail() Dim filter As String = "EMC "Dim OLApp As New Outlook.Application Dim objNS As Outlook.NameSpaceDim MapiFolder As Outlook.MAPIFolder Dim mailItem As Outlook ...

Verfasst am: 14.12.2010, 08:43 Aufrufe: 1201

Hallo zusammen, Vorweg: ich habe bisher nur VBA in Excel und Access programmiert. Nun habe ich mir VB Express 2010 runtergeladen und komme mit den uterschieden nicht so ganz zurecht. Folgene Situation: Ich möchte eine Application schreiben, bei der man einen Ordener Auswählt und die Unterordner (in meinem Fall Filme) einließt. Bis hierher funktioniert es. Während er in der Do-Schleife jeden einzelnen Ordner f ...

Verfasst am: 10.12.2010, 09:50 Aufrufe: 489

... eure Hilfe! Ich bin Einsteiger und habe mir aus Schnipseln aus dem Netz mal nen Programm geschrieben womit ich Gruppenmitlieder einer Sicherheitsgruppe aus einer Active Directory auslesen kann. Das ganze wird in Excel ausgegeben und per Click auf einer Zelle mit Inhalt Gruppenname wird in einer anderen Zelle die Mitglieder ausgegeben. Das funktioniert auch alles super! Das einzige Problem ist die Application ...

Verfasst am: 16.10.2010, 17:57 Aufrufe: 828

screamreader = New System.IO.StreamReader(response.GetResponseStream()) Dim newestversion As String = sr.readtoend() Dim currentversion As String = Application.ProductVersion If newestversion.Contains(currentversion) Then MessageBox.Show("No updates need") Else MessageBox.Show("1 update need" ...

Verfasst am: 03.09.2010, 15:04 Aufrufe: 813

com/de-de/library/ms268879%28v=VS.80%29.aspx Leider kann ich den Beispielcode nicht verwenden, da bei mir in der Entwicklungsumgebung einige Fehler auftauchen, die ich leider nicht beheben kann: -Der Typ "Outlook.MAPIFolder" ist nicht definiert. (Zeile 3) -"Application" ist kein Member von "WindowsApplication1.Form1". (Zeile 5) -Der Typ "Outlook.MAPIFolder" ist nicht defi ...

Verfasst am: 25.08.2010, 11:10 Aufrufe: 880

Ich habs jetzt zumindest mal soweit geschafft, dass ich direkt in einer Office Applikation eine Datei öffnen kann. Natürlich habe ich dies in einer eigenen Klasse bewerkstelligt, die meine ganzen anderen Methoden beinhaltet. Hier z.B. die Methode zum Word (sorry ich sehe leider kein codetag für das Forum) Public Shared Sub OpenWordDoc(ByVal objFileInfo As FileInfo, ByVal application As Object) Di ...

Verfasst am: 18.06.2010, 09:58 Aufrufe: 418

... Zelle im Excel Text auslesen und diesen danach in zwei Variablen aufteilen Hier ein Ausschnitt: Dim IntCounterBU As Integer Dim P1 As Integer Dim StrBU As String Dim IntValA As Integer Dim IntValA As Integer IntCounterBU = 1 'Habe im Originalcode eine Schleife die den Wert immer erhöht, damit es die ganze Spalte durchmacht StrBU = Range("R" & IntCounterBU).Value P1 = Application ...

Verfasst am: 12.06.2010, 13:33 Aufrufe: 973

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: 23.12.2009, 01:24 Aufrufe: 445

xx/xxxxx,xxxxx.php?x=" & TextBox1.Text & "&xxxxx=xxxx&xxxx=" & SeitenTicks) ListBox1.Items.Add("xxxx") Do Application.DoEvents() Loop Until WebBrowser1.ReadyState = WebBrowserReadyState.Complete Timer1.Enabled = True End If End If End Sub ...

Verfasst am: 22.12.2009, 18:32 Aufrufe: 618

Verfasst am: 21.12.2009, 16:04 Aufrufe: 445

xx/xxxxx,xxxxx.php?x=" & TextBox1.Text & "&xxxxx=xxxx&xxxx=" & SeitenTicks) ListBox1.Items.Add("xxxx") Do Application.DoEvents() Loop Until WebBrowser1.ReadyState = WebBrowserReadyState.Complete Timer1.Enabled = True End If End If End Sub ...

Verfasst am: 03.12.2009, 20:50 Aufrufe: 1227

CookieContainer = New CookieContainer() With Request .Method = "POST" .ContentType = "application/x-www-form-urlencoded" End With 'Benutzername und Passwort wird abgeschickt Dim Post As String = "username=" & username & "&password=" & password & "=Login" Dim byteArra ...

Verfasst am: 26.11.2009, 14:36 Aufrufe: 1075

#1 - Intro to the IDE - ZIP#2 - Hello World - ZIP#3 - Basic Application Development - ZIP#4 - Language Introduction - ZIP#5 - More Lanugage Intro - ZIP#6 - Basic String Manipulation - ZIP#7 - Basic Datatypes - ZIP#8 - Sets - ZIP#9 - Arrays - ZIP#10 - Records - ZIP#11 - Basic Data - ZIP#12 - Simple Class - ZIP#13 - Procedure and Functions - ZIP#14 - Units - ZIP#15 - Inheritance - ZIP#16 - Polymorphism - ZIP#17 - Why O ...

Verfasst am: 25.11.2009, 18:19 Aufrufe: 757

Als Makro in Outlook funktioniert dies Einwandfrei, jedoch soll das Skript dann auf einem Server laufen. Somit ist nun meine Frage, wie ich die Verbindung zum Exchangeserver (2007) bzw. zum Posteingang herstellen kann. Hier das Skript aus dem VBA: Sub mail() Dim objOutlook As Outlook.Application, objNameSpace As Outlook.NameSpace Dim objMailordner As Outlook.MAPIFolder, objGAINMailordner As Outlook.MA ...

Verfasst am: 23.11.2009, 18:33 Aufrufe: 722

Verfasst am: 23.11.2009, 09:00 Aufrufe: 715

Alright, is there anyone who can help me with this: Different users will use one PC and will run the same application. However, every user needs to be connected with his/her individual database before as the application needs to access it. As far as I found out I will need to set up the login/password routine with visual basic and have to connect the network share with Wnetaddconnection2 using username and P ...

Verfasst am: 22.11.2009, 12:56 Aufrufe: 4051

In diesem Tutorial wird nur die Entwicklung von PC spielen behandelt, da die Spiele für XBox 360 nicht kostenfrei sind.1.2 - Verwendung in VB.NET1. Um das Programm in VB.NET benutzen zu können, startet euren Compiler und erstellt eine neue Windows Application:2. Klickt auf OK und wartet einen Moment.3. Öffnet die Eigenschaftenseite eures Projektes. 4. Wählt die Registerkarte 'References' und klickt im rechten Fenster ...

Verfasst am: 15.11.2009, 21:17 Aufrufe: 753

Guten Abend zusammen, Ich bräuchte hilfe bei meinem kleinen Programm. Zunächst : Es ist eine Consolen Application. Und ich habe folgendes Problem. Ich weiß nicht wie ich es hinbekommen soll das wenn man das Programm (meins) beendet der Prozess ,,neuz.exe" auch geschlossen wird. Danke schonmal fürs helfen Wink

Verfasst am: 14.11.2009, 20:06 Aufrufe: 582

y=456")<br />WebBrowser1.Navigate("http://bla.de/xy.php", "", bytArguments, "Content-Type: application/x-www-form-urlencoded" + Environment.NewLine)Dieser code geht jedoch nicht. dann habe ich versucht, die seite auf zu rufen und dann das RaiseEvent("onclick") zu benutzen. Dim theElementCollection As HtmlElementCollec ...

Verfasst am: 12.11.2009, 18:17 Aufrufe: 860

ContentType = "application/x-www-form-urlencoded" Dim Post As String = "randomNumber_1=" & bis4 & "&randomNumber_2=" & bis8 & "&randomNumber_3=" & bis12 & "&randomNumber_4=" & bis16 & "&password=" & password & "&captchaID" & captchaid & "&captchaResponse=" &a ...

Verfasst am: 06.11.2009, 22:28 Aufrufe: 851

Verfasst am: 25.10.2009, 14:31 Aufrufe: 6627

Create("http://web.de/?status=login-failed&mc=freemail@msg@logonfailed.hp@home@hinweis"), HttpWebRequest) Request.Method = "POST" Request.ContentType = "application/x-www-form-urlencoded" 'Der Post mit den Daten Dim Post As String = "service=freemail&server=https%3A%2F%2Ffreemail.web.de&onerror=https%3A%2F%2Ffreemail.web.de%2Fm ...

Verfasst am: 10.09.2009, 11:36 Aufrufe: 701

bis jetzt sieht der Code so aus. Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim myOlApp As New Microsoft.Office.Interop.Outlook.Application() Dim neueliste As Microsoft.Office.Interop.Outlook.DistListItem() Dim myMailItem As Microsoft.Office.Interop.Outlook.MailItem ...

Verfasst am: 17.08.2009, 16:56 Aufrufe: 843

Hallo, hab ein umfangreiches Programm geschrieben, welches sich nach einiger Zeit mit der Exception "Win32Exception wurde nicht behandelt" verabschiedet. Dabei wird im Debugger die Code-Zeile "Application.DoEvents" gelb unterlegt. Ich weiss das man mit DoEvents vorsichtig sein muss, aber in diesem Fall habe ich keine Ahnung warum es zu der Exception kommt. Hat jemand eine Idee wie man die ...

Verfasst am: 09.08.2009, 21:50 Aufrufe: 3081

Verfasst am: 02.08.2009, 18:38 Aufrufe: 1338

zu deinem ersten punkt. wir erstellen eine txt datei : Dim sw As New StreamWriter(My.Application.Info.DirectoryPath & "\Log.

Verfasst am: 31.07.2009, 15:23 Aufrufe: 569

Nachfolgend der Code: Imports System.IO Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim oPro As New Process Dim PathToApp = Path.GetDirectoryName(Application.ExecutablePath) With oPro .StartInfo.UseShellExecute = True .StartInfo.FileName = PathToApp + & ...

Verfasst am: 20.07.2009, 16:21 Aufrufe: 1237

... habe diese dicken Bücher für VB und überall im Netz geguckt und nix finden können. Ich schreib mal die code auf was ich bis jetzt hab:Private Sub Simulieren_Click()'Durch Click starten der Simulation bzw. generiert die Zahlen für das Diagramm__________________________________________________ ____________________________'Öffnen der im Hintergrund laufenden Excel AnwendungSet Excel = CreateObject("Excel.Application ...

Verfasst am: 13.07.2009, 08:55 Aufrufe: 1798

Click Call URL_Load("http://www.google.de" & txtNachname.Text) End Sub Private Sub URL_Load(ByVal sURL As String) Dim appIE As Object Dim sTxt As String appIE = CreateObject("InternetExplorer.Application") appIE.navigate(sURL) Do : Loop Until appIE.Busy = False Do : Loop Until appIE.Busy = False ...