Visual Basic Forum

Verfasst am: 25.05.2012, 11:04 Aufrufe: 9

Ergo bin ich ziemlich planlos. Nun stellt sich folgendes Problem dar: Ich möchte dies' hier: http://pastebin.com/Z7KJ810d zum funktionieren bringen. Jedoch bekomme ich beim Aufrufen der Button1_Click Funktion die Fehlermeldung "Die Objektvariable oder die With-Blockvariable wurde nicht festgelegt.". Und zwar bei der Zeile For Each Me.sRow In ds.Tables("LSKOPF").Rows ...

Verfasst am: 21.05.2012, 14:59 Aufrufe: 22

Verfasst am: 18.05.2012, 08:33 Aufrufe: 2406

All the same, for such designer Mulberry Outlet it will be possible sacks container along with aspects, ladies have a top-notch a higher standard profit Evo Leger. This is the reason spending plan mindful ladies different presently want to take care of cash with regard to price reduction mulberry pouches, pouches plus designer bags.

Verfasst am: 18.05.2012, 08:32 Aufrufe: 3383

All the same, for such designer Mulberry Outlet it will be possible sacks container along with aspects, ladies have a top-notch a higher standard profit Evo Leger. This is the reason spending plan mindful ladies different presently want to take care of cash with regard to price reduction Mulberry Sale pouches, pouches plus designer bags.

Verfasst am: 18.05.2012, 08:31 Aufrufe: 3335

All the same, for such designer Mulberry Bags it will be possible sacks container along with aspects, ladies have a Mulberry Handbags top-notch a higher standard profit Evo Leger. This is the reason spending plan Mulberry UK ladies different presently want to take care of cash with regard to price reduction mulberry pouches, pouches plus designer bags.

Verfasst am: 17.05.2012, 08:00 Aufrufe: 79

BEIJING, May 7, 2012 -- /PRNewswire-Asia/ -- To accommodate users with a bigger band-aid for artful DVDs, Aiseesoft has aloof upgraded its DVD Archetype software. Now this cast new appliance owns a added convenient interface, and the DVD account and autograph speeds accept been abundantly improved .Aiseesoft's DVD Archetype can advice users advisedly archetype DVD discs and able-bodied as DVD folders and ISO files. W ...

Verfasst am: 17.05.2012, 08:00 Aufrufe: 80

BEIJING, May 7, 2012 -- /PRNewswire-Asia/ -- To accommodate users with a bigger band-aid for artful DVDs, Aiseesoft has aloof upgraded its DVD Archetype software. Now this cast new appliance owns a added convenient interface, and the DVD account and autograph speeds accept been abundantly improved .Aiseesoft's DVD Archetype can advice users advisedly archetype DVD discs and able-bodied as DVD folders and ISO files. W ...

Verfasst am: 17.05.2012, 07:57 Aufrufe: 143

CD anthology sales in 2011 fell by 13% in the UK, in adverse to downloaded anthology sales, which were up by 24%. Similarly, DVD sales fell by 7.2% aftermost year, whilst agenda rental affairs rose by 12%. Even gamers, who accept still been affairs in a concrete format, can apprehend a added agenda acquaintance soon. Nintendo, for example, is because absolution agenda versions of its amateur on the aforemen ...

Verfasst am: 17.05.2012, 07:56 Aufrufe: 16

It is spy verses spy for the adulation of one woman back the action-packed ball This Means War on Blu-ray, DVD and Digital Download May 22nd from Twentieth Century Fox Home Entertainment. M&C抯 accepting in on the activity by giving abroad two copies of the DVD edition! Reese Witherspoon (Walk the Line), Chris Pine (Star Trek) and Tom Hardy (The Dark Knight Rises), the laugh-out-loud ball gets alike ...

Verfasst am: 11.05.2012, 13:42 Aufrufe: 52

net konvertiert und habe fast bei jede Zeile eine Warnmeldung bekommen. Private smsObj As NokiaCLMessaging.ShortMsgAdapter Private SubmitObj As NokiaCLMessaging.IGSMSubmit Private Sub Form_Load() smsObj = New NokiaCLMessaging.ShortMsgAdapter Dim smsEntry As NokiaCLMessaging.ShortMessageItem smsEntry = New NokiaCLMessaging.ShortMessageItem 'UPGRADE_WARNING: Couldn't resolv ...

Verfasst am: 04.04.2012, 08:09 Aufrufe: 389

hat jemand nen Snippet? Mein vorher geschriebener Code Imports System.Security.Cryptography Imports System.Text Public Class Form1 Private Sub Form1_Load(ByVal sender As System.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&# ...

Verfasst am: 02.04.2012, 13:06 Aufrufe: 147

Cells(Rows.Count, 2).End(xlUp).Row + 1 ende_tabelle_fahrten_save = Worksheets("Fahrten_save").Cells(Rows.Count, 1).End(xlUp).Row + 1 For i = 1 To ende_tabelle_fahrten Step 1 If Worksheets("Fahrten").Cells(i, 2).Interior.ColorIndex = 3 Then Worksheets("Fahrten").Cells(i, 2).Interior.ColorIndex = xlNone Worksheets("Fahrten").Cells(i, ...

Verfasst am: 15.03.2012, 14:24 Aufrufe: 283

DatenbankTableAdapter.Autor(Me.Database1DataSet.Datenbank, AutorToolStripTextBox.Text & "%") Catch ex As System.Exception System.Windows.Forms.MessageBox.Show(ex.Message) End Try End Sub this kind of code shows me an exception but only started on left side of searched row/textbox. but i want to get an exception for each input... for example: "hello world" ...

Verfasst am: 15.03.2012, 14:23 Aufrufe: 137

DatenbankTableAdapter.Autor(Me.Database1DataSet.Datenbank, AutorToolStripTextBox.Text & "%") Catch ex As System.Exception System.Windows.Forms.MessageBox.Show(ex.Message) End Try End Sub this kind of code shows me an exception but only started on left side of searched row/textbox. but i want to get an exception for each input... for example: "hello world" ...

Verfasst am: 14.03.2012, 10:36 Aufrufe: 215

Thanks for the chance to win this fab class. This year I would like to scrapbook my son’s wedding from 2009. ---------------------------------------- http://www.shopdvdmall.com.au/

Verfasst am: 07.03.2012, 07:23 Aufrufe: 153

So, many men and women use hair wigs to regain confidence and to look their attractive best. Did you know that cleverly crafted hair wigs are a vital part of many celebrity makeup kits? However, most celebrities – and ordinary folk, for that matter – wouldn't be caught dead shopping for a hair wig. Thanks to the internet though, many people can now buy just the right kind of hair wigs to suit their coloring and styl ...

Verfasst am: 15.02.2012, 14:16 Aufrufe: 183

Nach dem Empfangen des ersten übertragenen Textes möchte ich diesen manuell überprüfen. Erst, wenn alles korrekt ist, darf ich weitermachen. Deshalb zähle ich im Hintergrund mit und nur, wenn die Variable Datatransfer_Counter = 1 ist, rufe ich ein Fenster auf, das mich dazu auffordert, die Daten zu überprüfen. Mein Problem ist, dass hierbei nicht der gesamte Text übertragen wird. Anscheinend fehlt die Zeit f ...

Verfasst am: 13.02.2012, 17:10 Aufrufe: 196

Name End With Selection.MoveDown Unit:=wdLine, Count:=15 'hier die Positioniererei, gilt nur für mein Doc Selection.MoveUp Unit:=wdLine, Count:=2 Selection.MoveRight Unit:=wdCharacter, Count:=7 For i = 1 To 6 Selection.TypeBackspace Next i Selection.Fields.Add "INCLUDEPICTURE Datei \d", _ ' DAS HIER KLAPPT NICHT!!!!!!!!!!!!! PreserveFormatting:=True ...

Verfasst am: 26.01.2012, 10:17 Aufrufe: 590

Hallo zusammen, ich habe ein Formular erstellt, welches verschiedene Steuerelemente beinhaltet. Beispielsweise sind dort Label, Textboxen, Checkboxen etc. vorhanden. Diese Steuerelemente (Controls) sind in einem TabControls auf verschiedene Tabs verteilt. Nun möchte ich eine Schleife erstellen, die durch die Form geht, alle Controls ermittelt und dann abfragt, um welchen Typ es sich handelt. Wenn ich das habe ...

Verfasst am: 22.01.2012, 15:52 Aufrufe: 267

Verfasst am: 20.01.2012, 11:12 Aufrufe: 267

hi dass was du brauchst ist zeit Wink

zwischen den beinen codezeilen du hast mehrere möglichkeiten! 1) shell '... prozess schließen for i = 1 to 100000 'lasse zählen um zeit zu bekommen Smile

next shell bat datei 2) shell '... prozess schließen Delay 4000 'musst nach der funktion googlen ... dann wartet die 4000millisekunden shell bat datei 3) ShellWait Vlcprozess 'auc ...

Verfasst am: 11.01.2012, 07:35 Aufrufe: 410

What is the first thing that comes to mind when talking about? They are very, itching, hair piece completely unrealistic to think that everyone remembers. But times have changed and now, thanks to natural resources full lace wigs, women have a realistic and cost-effective way to adapt their style of choice for celebrities their hair or just occasionally. Many people invest in . Suppliers in the UK are a thriving busi ...

Verfasst am: 12.12.2011, 14:50 Aufrufe: 333

Length > 8) txtID.Text = txtID.Text.Remove(0, 1) End While sCmd = "t" & txtID.Text & txtDLC.Text If (Val(txtDLC.Text) > 0) Then For iTmp = 1 To Val(txtDLC.Text) sCmd = sCmd & txtByte(iTmp - 1).Text Next End If iResult = SendCommand(sCmd ...

Verfasst am: 22.11.2011, 19:05 Aufrufe: 382

Black For i = 0 To Ball_IndX If MoVinG(i) = 0 Then speedY(i) += gravity speedY(i) += ay(i) speedX(i) += ax(i) speedY(i) *= friction speedX(i) *= friction ball_loc_x(i) += speedX(i) ball_loc_y ...

Verfasst am: 12.11.2011, 19:47 Aufrufe: 349

Verfasst am: 10.11.2011, 02:33 Aufrufe: 345

There are lots hard and complicated kids magic tricks in the wide world of magic and illusions. For this reason why there are some specific kids magician Brisbane tricks, which are made only for the children to perform. You, as a parent, will enjoy spending lots of quality time educating your children with these easy kids magician Brisbane tricks, which are only for the kids.One of oldest magic tricks in book is &quo ...

Verfasst am: 04.11.2011, 04:36 Aufrufe: 430

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), just let one rip a ...

Verfasst am: 25.10.2011, 12:49 Aufrufe: 293

... e mich seit ein paar Taagen mit VB6, da ich als praktikantin in einem unternehmen ein Ansteuerprogramm schreiben soll. das klappt auch soweit ganz gut, man findet wirklich auf fast jede Frage eine Antwort im Internet Smile

Eine kleine Frage habe ich dennoch, auf die ich leider keine Antwort gefunden habe (weiteres Problem beim suchen: bei vielen Seiten wird vom Unternehmen der Zugriff verweigert) Über eine for ...

Verfasst am: 25.10.2011, 12:38 Aufrufe: 246

Enabled = False Case 2: Command1(Index).Caption = "O" Text1.Text = "1" Command1(Index).Enabled = False End Select End Sub Private Sub Command2_Click() For i = 0 to 8 Command1(i).Caption = "" Command1(i).Enabled = True Next Text1.Text = 1 End Sub Selec ...

Verfasst am: 19.10.2011, 10:48 Aufrufe: 454

Y > 0 Then fraction.group = group fraction.type = mes.type frac.Add(fraction) fractions += 1 End If For i As Integer = 0 To temp.Count - 2 If temp(i).Y < 1 And temp(i + 1).Y >= 1 Then frac.Add(New dataFraction(gro ...

Verfasst am: 18.10.2011, 13:41 Aufrufe: 1296

Thanks man for writing the wonderful blog...

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: 24.09.2011, 22:56 Aufrufe: 238

ich hab eine minimap geadded, funktioniert auch alles - wenn ich eine unit bewege dann wird die alte position nicht gelöscht! wie kann ich hier dem programm sagen, es soll nur die aktuelle position zeichen - aber die alten sofort wieder löschen auser die einheit bewegt sich nicht mehr ? Public Sub drawminimap(z) tempa = mapwidth / 70 tempb = mapheight / 70 minimap.ForeColor = vbGreen minimap.

Verfasst am: 09.09.2011, 08:59 Aufrufe: 991

As previously stated, anime collectable discount DVD are from time-to-time selected by collectors. all those that do so frequently take satisfaction in the . even although it is extra than feasible for collectible anime DVDs to turn into resold for just about any profit, it could frequently occasions be challenging to do. With that getting said, numerous from the below can help collectors, like you, treatment for an ...

Verfasst am: 09.09.2011, 08:54 Aufrufe: 588

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

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 for you. very much more importantly, they will also price the institution and help offered by each and every of those over the net stores.

Verfasst am: 05.09.2011, 10:15 Aufrufe: 2714

Hallo, ich habe nach deinem Beispiel einen Text im Listview gesucht. Diesen möchte ich jetzt rot färben: For i = 1 To UserFormList.ListView1.ListItems.Count If StrComp(UserFormList.ListView1.ListItems(i).SubItems(7), "***Auftrag", vbTextCompare) = 0 Then UserFormList.

Verfasst am: 01.09.2011, 06:18 Aufrufe: 489

The intention of your website should be thus delivered in a simple and appealing way. The header should also include the title of the websites. If your website contains multiple pages, you can install navigation menus to facilitate easy access. The navigation menu styles are different for different websites. Big websites usually have separate menus that guide the users from one page to another. Your website ...

Verfasst am: 30.08.2011, 16:41 Aufrufe: 531

Verfasst am: 29.08.2011, 03:22 Aufrufe: 747

Verfasst am: 26.08.2011, 12:20 Aufrufe: 554

Ich hab schon im Internet gesucht, aber nichts hilfreiches gefunden. Bis jetzt habe ich das: Save: Private Sub btnSave_Click(sender As System.Object, e As System.EventArgs) Handles btnSave.Click Dim str As String = String.Empty For i = 0 To m_listView.Columns.Count - 1 str = str & m_listView.Columns(i).Text & "-" Next My ...

Verfasst am: 21.08.2011, 11:42 Aufrufe: 215

Hier meine Frage: ich habe eine Variable Feld(0,0) inhalt ist "Label1" Feld(0,1) inhalt ist "Mein Name" Feld(1,0) inhalt ist "Label2" Feld(1,1) inhalt ist "Meine Email" ich möchte nun per Schleife label1.text = "Mein Name" label2.text = "Meine Email" setzen gedacht war for i = 0 to 1 Feld(i,0).Text = cstr(Feld(i,1)) next le ...

Verfasst am: 19.07.2011, 19:27 Aufrufe: 628

Runtime.InteropServices Public Class Form1 'Variablen: Private Structure Connection Dim stream As NetworkStream Dim streamw As StreamWriter Dim streamr As StreamReader End Structure Dim Server As TcpListener Dim client As New TcpClient Dim ipendpoint As IPEndPoint = New IPEndPoint(IPAddress.Any, 4000) Dim funktion As String( ...

Verfasst am: 17.07.2011, 22:48 Aufrufe: 309

Hallo Makle Du beschrkänkst dich in deinem Code auf "MenuStrip"s. For Each c As Control In Me.Controls With c If TypeOf c Is MenuStrip Then .Text = "Test" End If End With Next So gehts On Error Resume Next For Each c As Control In Me.Controls With c .Text = "Test" End With Next On Error Goto 0 on error ist wichtig, da es Steuerelemente gibt die keine Text-Ei ...

Verfasst am: 15.07.2011, 07:10 Aufrufe: 375

ich kann dir nur sagen was ich machen würde wenn ich jetzt einen serien brief ersellen wollen würde eine exceltabelle... die kann ganz einfach ausgelesen werden und gleich in excel -> vba weiter verwedet werden um deine briefe zu erstellen for i = 1 to 1000 FamName = Cells(i, 1) VorName = Cells(i,2) Adresse = Cells (i,3) '... 'un dan brauchst du die sachen ...

Verfasst am: 13.07.2011, 16:33 Aufrufe: 309

Hi @All, ich versuche gerade von einer Form alle Objekte abzufragen die darauf existieren (menuStrip, Buttons, etc.......) Folgenden Code habe ich dazu im Netz dazu gefunden (habe ich natürlich auf meine Form angepasst): For Each c As Control In Me.Controls With c If TypeOf c Is MenuStrip Then .Text = "Test" End If ...

Verfasst am: 13.07.2011, 08:38 Aufrufe: 706

rsArtikel ' Set rsKunde = DataEnvironment1.rsKunde If cbKunde <> "" Then cbArtikel.Clear ' rsKunde.Open rsArtikel.Open rsArtikel.MoveFirst For i = 0 To rsArtikel.RecordCount - 1 If rsArtikel.Fields("Matchcode") = cbKunde Then cbArtikel.AddItem rsArtikel.Fields("Name1") ' rsArtikel ...

Verfasst am: 03.07.2011, 13:14 Aufrufe: 291

Generic.List(Of Date)" kann nicht in "1-dimensionales Array von Date" konvertiert werden." Keine Ahnung was das bedeutet und warum es nicht funktioniert. Dim darray As New List(Of Date) Dim d As String Dim dt As DateTime For i = 0 To dbDataTbl.Rows.Count - 1 d = dbDataTbl.Rows(i)("Datum") ' Liest Feld DATU ...

Verfasst am: 14.06.2011, 22:25 Aufrufe: 518

... 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" Randomize For ...

Verfasst am: 01.06.2011, 13:06 Aufrufe: 743

... eader() myConnection = New SqlConnection("Data Source=WINXP\FREIWILD;Initial Catalog=NeueDatenbank;Integrated Security=True") myCommand = myConnection.CreateCommand() myCommand.CommandText = "dbo.test_sp" myConnection.Open() Using Reader As SqlDataReader = myCommand.ExecuteReader() For ...