Visual Basic Forum

Verfasst am: 08.02.2012, 10:33 Aufrufe: 24

was ist das problem daran dir kurz den code anzusehen und wenn du nicht weiterkommst dann deine frage zu stellen?!

Verfasst am: 07.02.2012, 21:33 Aufrufe: 24

Beispiel: Name: Mayer Ort: Viersen im DataGrid ist kein Ort zu sehen. Nächster Datensatz: Name: Müller Ort: Hamburg Im DataGrid ist jetzt der Ort Viersen, aber nicht Hamburg, aufgelistet. Und so weiter. Im Code kann also kein Fehler sein und ich vermutete daher ein Zeitproblem. Dem scheint auch so zu sein, denn wenn ich nach dem Update von Adodc1 etwas warte und dann manuell Adodc2.Refresh ausführe ist ...

Verfasst am: 04.02.2012, 13:49 Aufrufe: 43

hi ist gar nicht so schwer Wink

du hast beim button viele events und du brauchst MouseMove oder so ähnlich und dann eben noch den code sowas wie me.left = me.left +100 viel erfolg

Verfasst am: 30.01.2012, 10:32 Aufrufe: 138

... le nochmals den index ans herz legen.... du hast eine textbox die beschrieben wird wenn das geschieht soll sich der checkbox value ändern Private Sub Text1_Change(Index as integer) if text1(Index).text <> "" then check1(index).Value = 1 else check1(index).value = 0 endif End SUb Wundersschön dynamisch und auf beliebig erweiterbar noch ein vorteil! wenig zeilen code ...

Verfasst am: 28.01.2012, 13:05 Aufrufe: 78

.. ich habe 2 Textboxen, in der einen Steht der Link und in der 2. der Text ! Wenn ich jetzt auf den Button Klicke soll er mir den Hyperlink in die untere Box schreiben. Diesen Code habe ich gerade dafür: Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim url As String ]TextBox2.Text End Sub Aber er sagt mir das die hie ...

Verfasst am: 26.01.2012, 16:21 Aufrufe: 43

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: 26.01.2012, 12:22 Aufrufe: 121

hi ich habe überhaupt keinen plan was du überhaupt machen willst du hast einfach nur meinen code kopiert und unverändert gelassen wie kommst du auf die idee dass der code jetzt genau das macht was du willst?? ich habe dir eine funktion geschrieben die getfiles... du musst diese funktion aufrufen auch Button1_click msgbox getFiles("C:\Testordner\","JPG") da sind noch e ...

Verfasst am: 26.01.2012, 09:17 Aufrufe: 138

eine Textbox gefüllt ist oder eine Checkbox angekreuzt ist. Ist dies der Fall, soll das entsprechende Tab im TabControl gekennzeichnert werden. Mein VB Code: For Each ctl As Control in Antrag_1 If Dim ctl TypeOf(ctl) Is Textbox Then If ctl.Value <> "" Then TabControl.Pages(0) = "(*) Sammelumzug" End If End If Next Le ...

Verfasst am: 25.01.2012, 09:30 Aufrufe: 121

aber wenn ich jetzt nen Ordner mit datein asuwähle bleibt er nicht stehen wenn es keine Ordner sondern nur Datein in deem ordner gibt und es steht auch unten kein "öffnen" sodass er den pfad in die Listbox oder das Textfeld schreibt ! Sry bin icht Anfänger .. so sieht mein Code aus: Public Class Form1 Private Property cFile As String Private Sub TextBox1_TextChanged(ByVal sender As Sys ...

Verfasst am: 25.01.2012, 08:45 Aufrufe: 121

Verfasst am: 24.01.2012, 07:03 Aufrufe: 121

Verfasst am: 23.01.2012, 22:31 Aufrufe: 121

.. Ich will einen Code haben der mit dem Klick auf einen Button entweder sich ein Fenster öffnet, indem man einen Ordnerpfad öffnen kann, oder vorher den Pfad in ein Textfeld eingeben und mit dem Klick auf den Button alle Datein in diesem Ordner mit endung (bsp. .exe) in ein Textfeld schreiben lassen !!! Ich bin noch ein Neuling und brauche bitte etwas hilfe ! Am besten mit erklärung damit ich es verstehe und ...

Verfasst am: 22.01.2012, 14:52 Aufrufe: 107

Verfasst am: 20.01.2012, 10:12 Aufrufe: 107

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: 17.01.2012, 08:09 Aufrufe: 106

Es kann natürlich auch sein, dass sämtliche Versionen niemals abwärtskompatibel waren. Das kann ich allerdings nicht testen. Vielleicht gibt es auf diesem Globus jemanden, der alle Versionen von 1 bis 6 auf seinem Rechner hat. Der könnte mir auch helfen. Ich muss entweder alles auf VB6 (oder höher) konvertieren oder eben neu programmieren (also Formen erstellen und alle Code abschreiben). Denn erst ab VB6 funk ...

Verfasst am: 16.01.2012, 16:05 Aufrufe: 70

Hey ich würde mich gerne zu einer SQLite3 Datenbank verbinden. finde leider keinerlei nützlichen code im internet Sad

hat da jemand erfahrung? programmiere mit Basic4Android auch fürs handy und da gehen (glaube ich) nur diese datenbanken...

Verfasst am: 13.01.2012, 18:56 Aufrufe: 78

ich kann dir jetzt nur einen pseudo code aus vb6 bieten das wird aber in vb.net ähnlich funktionieren txtstring.text = "123456" txtsuch.text "123" x = instring(txtstring.text, txtsuch.text) if x = 0 then exit sub txtstring.selstart = x txtstring.sellengh = len(txtsuch.text) pseudocode ende ich hoffe du kannst damit was anfangen

Verfasst am: 13.01.2012, 18:45 Aufrufe: 106

hi vorab ... ich kenne keine möglichkeit aber mich würde doch trotzdem interessieren wie die codes damals ausgesehen haben ich code selbst nur in vb6 und wenn ich so drüber nachdenke ist es ja fast schade dass du sie in vb6 haben willst und nicht gleich in vb.net würde mich freuen wenn du mal paar codes online stellen würdest wie gesagt würde sie mir echt gern mal ansehen wie damals gecodet wurde ...

Verfasst am: 13.01.2012, 15:36 Aufrufe: 97

Leider klappt alles bis auf den JavaScript. Ich habe eine eigene Webseite, auf der eine Werbeeinbeldung per JavaScript gemacht wird, welche dadurch nicht funktioniert (Als Werbung wird ein Layer verwendet. Nun, da der Browser später für andere zugänkch gemacht werden soll, muss er auch JavaScript unterstützen. Ich habe den Code von BinLayer.de und er sieht so aus: <script type="text/javascript" src=&q ...

Verfasst am: 06.01.2012, 03:55 Aufrufe: 2344

Um eine bestimmte Startseite festzulegen, gibt es keinen so kurzen Code.Die einfachste Möglichkeit ist es die Startseite in einem Textdokument zu speichern. Die idee mit der Txt find ich gut aber ich Selber würdes eher so Machen weil man dann nichts extra abspeichern muss Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load TextBox1.Text = "d ...

Verfasst am: 04.01.2012, 10:13 Aufrufe: 141

InvokeImpl() bei System.Windows.Threading.DispatcherOperation.InvokeInSecurityContext(Object state) bei System.Threading.ExecutionContext.runTryCode(Object userData) bei System.Runtime.CompilerServices.RuntimeHelpers.ExecuteCodeWithGuaranteedCleanup(TryCode code, CleanupCode backoutCode, Object userData) bei System.Threading.ExecutionContext.RunInternal(ExecutionContext executionContext, ContextCallba ...

Verfasst am: 30.12.2011, 00:03 Aufrufe: 165

viellleiht kann mir jemand in irgendeiner Weise weiter helfen. ich bin wirklich totaler Anfänger und habe jetzt 2 monate versucht mir ein wenig anzueignen was neben Haushalt und Arbeit möglich war. den surce code habe ich und ich habe mich schon echt lange mit beschäftigt, aber ich verstehe es nicht. Ich habe mir bisher nur kleine Erweiterungen geschrieben, die ich noch einbinden muss wie zB ein webbroser us ...

Verfasst am: 12.12.2011, 13:50 Aufrufe: 169

Hallo Zusammen Ich brauche Ihre Hilfe. Das geht’s um mein Anwendung code für BLDC motor auf die miKrocontoller laden zu können. Ich kann in Moment einmal 8 Bytes senden aber bekomme ich kein ACK(acknowledge) . Ich weiss nicht wie gehe ich vor. ' Handles send data Private Sub btnSendData_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Command6.Click Dim iResult, iTm ...

Verfasst am: 10.12.2011, 12:17 Aufrufe: 148

Hallo, ich bin Anfänger und habe ein kleines Consolen Programm geschrieben, möchte aber das die Variablen menge(Integer) und ergebnis(Double) rechtsbündig ausgegeben werden und zwar so das wenn sich der Wert von menge oder ergebnis ändert das heißt wenn der um eine Stelle größer wird z.B. von 22.99 auf 122.87 immer noch rechtsbündig bleibt. So in etwa ist der Code, wo muss ich was einfügen. Console.Write ...

Verfasst am: 05.12.2011, 07:39 Aufrufe: 221

hi code zwar nur vb6 aber versuch doch mal statt key.pressen key.down oder so so ist es in vb6 lg

Verfasst am: 01.12.2011, 07:27 Aufrufe: 249

Callback(IntPtr hWnd, Int32 msg, IntPtr wparam, IntPtr lparam) ***** Nachforschungen in Google ergaben, dass das irgendetwas mit einer Schleife zu tun hat. Im Code jedoch ist keinerlei Schleife o.ä.

Verfasst am: 30.11.2011, 10:38 Aufrufe: 223

Ich möchte gerne in meinem Sub auf eine Function verweisen, damit diese dann ausgeführt wird. Meine Syntax schaut bisher wie folgt aus: Sub Execute1() Call ExportFile End Sub ------ Function ExportFile (lpszSourceFileName As String, lpszDestinationFileName As String, lExportType As Long) As Boolean ExportFile = True End Function der Code steht komplett in einem Modul. Nun zeigt mit VB beim Compilie ...

Verfasst am: 29.11.2011, 08:37 Aufrufe: 194

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: 28.11.2011, 09:21 Aufrufe: 155

Ahoi, mir fehlt die richtige/offzielle Bezeichnung für das ... Feature, ich hoffe ich kann mich trotzdem verständlich ausdrücken: Zum Hintergrund: Ich komme ursprünglich aus der C# Welt und fand das Feature schon immer etwas nervig das VB während der Arbeit den Code vorkompiliert d.h. zB einen vertippten Funktionsnamen sofort meldet, etc. Jetzt habe ich ein großes, und übel zusammengeklopptes, VB Projekt übe ...

Verfasst am: 22.11.2011, 18:05 Aufrufe: 200

Hallo, Die Kollisionsabfrage habe ich bereits, das könnt ihr aus dem Sourcecode entnehmen. In dem Code steht die Gesamte Physik-Engine, also alles was man braucht um mir evtl. helfen zu können. Es handelt sich um 2+n Bälle die sich Physikalisch korrekt Verhalten in einem System mit Gravitation. Kollision am Rand klappt gut, auch die Kollisionserkennung zwischen den Bällen. Das problem ist nur. Sobald die Bä ...

Verfasst am: 12.11.2011, 18:47 Aufrufe: 187

Hallo, bin Anfänger und habe eine Frage , kann mir jemand den folgenden Code Zeile für Zeile mal erklären habe es aus meinen Übungen und den verstehe ich nicht ganz. Also bitte keine Lösungen wie man es anders machen kann möchte den hier verstehen. Module Module1 Sub Main() For i As Integer = 1 To 20 For j As Integer = 1 To i Console.Write("*") ...

Verfasst am: 06.11.2011, 17:42 Aufrufe: 333

Moinsen, eigentlich wollte ich nur einen String in einen Integer umwandeln, aber es scheint ja doch nicht ganz so einfach zu sein. Wink

Folgender Code klappt, er gibt mir als Ergebnis 124: Dim b b = CInt(123.6) Response.Write("b = " & b) Nun dachte ich mir, dass der Wert 123.6 doch auch durch eine Variable vom Typ String kommen könnte. Also probie ...

Verfasst am: 02.11.2011, 21:19 Aufrufe: 1261

Hier der Code: Dim mailtext As String mailtext = TextBox1.Text & " " & TextBox2.Text Dim Client As New Net.Mail.SmtpClient("smtp.web.de") Client.Credentials = New Net.NetworkCredential("DEINE EMAIL ADRESSE", "DEIN EMAIL PASSWORT") Client.Send("DEINE EMAIL ADRESSE", "DEINE EMAIL ADRESSE", ...

Verfasst am: 02.11.2011, 20:54 Aufrufe: 289

... lermeldung im Webbrowser So schlimm ist es ja nicht, denn wenn man jetzt einfach auf "JA" klickt geht alles normal weiter kann man das noch irgendwie darein schreiben das automatisch auf "JA" geklickt wird oder kann man diesen "Skriptfehler" beheben? Hat jemand vllt. das selbe Problem und konnte es evtl. beheben? Hier ein Screenshot: http://i40.tinypic.com/osy3b8.jpg Code ...

Verfasst am: 30.10.2011, 15:59 Aufrufe: 148

Also habs jetzt soweit das wenn ich die zwischenräume mit "_" auffülle die Abstände passen, aber wenn ich mit dem gleichen code die leerzeichen mit " " füllen möchte, ich wieder meinen Versatz drin habe... Sad

Hilfe!!!!!!!

Verfasst am: 29.10.2011, 20:05 Aufrufe: 148

ich habe mir deinen code jetzt nicht zeile für zeile durchgesehen aber beim lesen deiner beschreibeung hab ich mich gefragt warum du nicht einfach nur vbTab verwendest?! Variable = "30" & vbTab & "was weis ich" ja da brauchst du nicht mehr mit leerzeichen arbeiten kommt aber vor dass du in einer zeile die ein bisschen kürze ist ein paar leerzeichen anhängen musst und dann vbta ...

Verfasst am: 29.10.2011, 20:00 Aufrufe: 175

du hast auf der zweiten form deinen stop button definiere eine variable als public und boolean also Public Abbruch as boolean und an einem anderen teil des codes.... Loop Until TimeOut < (GetTickCount / 1000) or abbruch = true code im commandbutton abbruch = true dann wird die schleife entweder nach der wartezeit beendet oder wenn abbruch gedrückt wurde hoffe du konntest damit w ...

Verfasst am: 29.10.2011, 10:04 Aufrufe: 148

Verfasst am: 27.10.2011, 12:51 Aufrufe: 175

jetzt möchte ich allerdings, dass sich beim start der übertragung eine andere form öffnet, auf der die aktuellen strom und spannungswerte angezeigt werden (damit man nicht immer auf das gerät schauen muss, sondern das ganz bequem am bildschirm ablesen kann). auf diese neue form habe ich nun meinen stop button gelegt mit dem gleichen code wie der stop button auf der alten form. wenn ich dort alelrdings auf stop drück ...

Verfasst am: 26.10.2011, 18:29 Aufrufe: 160

Caption = "O" And Command1(2).Caption = "X" Then MsgBox "Spieler 2 hat gewonnen!" End If End Select Natürlich würde der Code mit den anderen Möglichkeiten noch folgen, zudem denke ich mal, dass es warscheinlich irgendwie "doppelt-gemoppelt" ist mit dem "If" aber ohne Funktioniert das genauso wenig. Wenn ich es ausprobiere kommt diese ...

Verfasst am: 26.10.2011, 11:50 Aufrufe: 175

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, 12:02 Aufrufe: 175

... t Lib "kernel32" () As Long Public Sub Delay(nSekunden As Long) Dim TimeOut As Long ' Abbruchbedingung für die Do Loop Schleife ermitteln TimeOut = (GetTickCount / 1000) + nSekunden Do ' Systemevents zulassen DoEvents ' TimeOut erreicht? Loop Until TimeOut < (GetTickCount / 1000) End Sub Aufruf: ' 5 Sekunden warten Delay 5 ähnlich deinem code ...

Verfasst am: 25.10.2011, 11:49 Aufrufe: 175

... tzer nach verschiedenen Werten für Spannung, Strom und Zeit. (Spannung(i), Strom(i), Zeit(i), i ist 0 bis 9) das gerät soll spannung(i) und strom(i) für die zeit(i) ausgeben. (wird für messungen benötigt) über eine schleife werden dann diese werte an das anzusteuernde gerät weitergegeben. das klappt auch super:) allerdings weiß ich nicht wie ich das mit der Zeit hinbekommen soll! Habs so versucht: im code ...

Verfasst am: 24.10.2011, 22:43 Aufrufe: 160

Ich erlerne die Programmiersprache durch meine Schule, neben dieser nun lernenden Sprache kann ich ein klein wenig html, das aber nur am Rande Very Happy

So um zum Punkt zu kommen erst mal das wichtigste: Ich soll mit hilfe von VB6 das Spiel Tic-Tac-Toe programmieren, dazu sollen wir (meine Klasse) jetzt schon (nach 6 Schulstunden) in der Lage zu sein. Ich habe soweit auch schon einen Code erstellt, der soweit auch funk ...

Verfasst am: 19.10.2011, 09:48 Aufrufe: 335

Hallo, ich hatte einen funktionierenden Code. Diesen habe ich dann in einen BackgroundWorker gesteckt, da er etwas zeit in anspruch nimmt und ich einen progressbar aktualisieren möchte. Daraufhin funktioniert das erstellen von Zedgraph.PointPairList nicht mehr. Imports Zedgraph ist drin ... der code lässt sich auch ausführen, doch kommt dann eine SteckOverflowException beim erstellen einer New Zedgraph.Point ...

Verfasst am: 18.10.2011, 16:38 Aufrufe: 109

Guten Tag, mein Programm soll etwas aus einer Richtextbox (Zeile für Zeile) ablesen Und nach jeder Zeile einen Button (also einen Link im Webbrowser) betätigen. Kann mir jemand den Code geben? Ich weiß nicht ob das geht.

Verfasst am: 18.10.2011, 12:10 Aufrufe: 321

... ich nehmen ist kostenlos und kannst direkt von microsoft runterladen visual studios 2010 oder wie auch immer da hast das ganze packet mit c# c++ und vb.net also der nachfolger von vb6 und ein 4. glaub ich war da auch noch kann mich aber nicht mehr erinnern wie gesagt wenn du bei vb6 bleibst werde ich dir gerne helfen bei deinem chat aber mit vb.net kenn ich mich dann nicht mehr aus kann zwar den code ...

Verfasst am: 16.10.2011, 17:09 Aufrufe: 171

Verfasst am: 06.10.2011, 14:00 Aufrufe: 337

Verfasst am: 01.10.2011, 22:40 Aufrufe: 347

Hallo ihr lieben ich brauche mal euer können ich arbeite zurzeit an einem tool was True Crypt laufwerke einbinden und ausbinden soll 2 button habe ich erstellt in einer form und den code benutze ich nur irgendwie passiert nichts wenn ich auf die button klicke hat einer eine idee Public Class Form4 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim Tr ...