|
Registrieren
LoginInformationen über handles |
|||||
|---|---|---|---|---|---|
 Progressbar durch Tastendruck zurücksetzen |
|||||
| Verfasst am: 11.04.2012, 06:12 Aufrufe: 118 Public Class Form1 Private Declare Function GetAsyncKeyState Lib "user32.dll" (ByVal vKey As Integer) As Short Dim Taste As Integer Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick If GetAsyncKeyState(67) = -32767 Then Timer2.Start() ElseIf GetAsyncKeyState(88&# ... |
|||||
| Erstellung einer HTPASSWD auf DES Encryption Standart |
|||||
| Verfasst am: 04.04.2012, 08:09 Aufrufe: 389 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() Dim Result As Byte() Dim Res As String = "" Dim Tmp As String = "& ... |
|||||
| Try-Catch-Umgebung |
|||||
| Verfasst am: 15.03.2012, 14:24 Aufrufe: 283 think its possible with regex...but how? here is my sourcecode: Private Sub AutorToolStripTextBox_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AutorToolStripTextBox.TextChanged Try Me.DatenbankTableAdapter.Autor(Me.Database1DataSet.Datenbank, AutorToolStripTextBox.Text & "%") Catch ex As System.Exception System.Windows ... |
|||||
| how to insert Regular Expression in try-catch-environment? |
|||||
| Verfasst am: 15.03.2012, 14:23 Aufrufe: 137 here is my sourcecode: Private Sub AutorToolStripTextBox_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AutorToolStripTextBox.TextChanged Try Me.DatenbankTableAdapter.Autor(Me.Database1DataSet.Datenbank, AutorToolStripTextBox.Text & "%") Catch ex As System.Exception System.Windows.Forms.MessageBox.Show(ex.Message) ... |
|||||
| [VB 2010] Fenster größe |
|||||
| Verfasst am: 15.03.2012, 11:15 Aufrufe: 203 Hallo Forengemeinde, Ich bin ein frischling im Bereich VB 2010 habe es ja schonmal geschafft das sich per Button klick das Popup öffnet aber die Fentergröße des Popups ist zu klein möchte das Fenster gerne an die größe das Inhaltes anpassen nur wie mache ich das ?? hier mal mein Code Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click ... |
|||||
| Chart1 mit Y-Werten füllen |
|||||
| Verfasst am: 26.02.2012, 10:56 Aufrufe: 176 Habe ein "Chart1" erstellt, eine "Series1" erstellt mit mehreren Datapoints (0-11) für Januar bis Dezember. Hier nur mal ein Aussschnitt von Januar - März. Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click Dim reihe0 = 5 Dim reihe1 = 3 Dim reihe2 = 10 Chart1.Series("Series1").Points(0).SetValueY ... |
|||||
| Fensterposition/größe ändern, funktioniert nur mit Notepad |
|||||
| Verfasst am: 20.02.2012, 01:45 Aufrufe: 171 ... String, ByVal lpWindowName As String) As Integer Private Declare Function GetWindowRect Lib "user32" Alias "GetWindowRect" (ByVal hwnd As IntPtr, ByRef lpRect As RECT) As Integer Public prozessName As String = "" Private ProzessHandle As Integer End Class Private Sub cmdSetPos_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ... |
|||||
| Werte werden vom DGV nicht in XML gespeichert |
|||||
| Verfasst am: 15.02.2012, 14:49 Aufrufe: 261 geladen wird die xml beim formload in die DGV Hab schon viel rum probiert, sieht man wohl am Code: 
im prinzip sind es ja nur 3 zeilen ....
Private Sub Button5_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
'Tabelle leeren
DataTable1.Clear()
'Datum eintragen
DataGridView1.Rows(0).Cells(0) ... |
|||||
| Hyperlink erstellen ?! |
|||||
| Verfasst am: 28.01.2012, 14:05 Aufrufe: 212 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 hier Rot Makierte Klammer zuviel ist ! Wegnehmen kann ich sie aber nicht und wenn ich die Klammer bei dem ersten url wegnehme, dass es so aussieht: [/b] sagt er mir d ... |
|||||
| [Frage]Ordner auslesen und Dateinamen |
|||||
| 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 ... |
|||||
| [Text] WebBrowser für Anfänger |
|||||
| Verfasst am: 06.01.2012, 04:55 Aufrufe: 2691 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 = "deine Startseite" If TextBox1.Text = "Deine Startseite ... |
|||||
| GUI für mikrocontroller Anwendungscode laden |
|||||
| Verfasst am: 12.12.2011, 14:50 Aufrufe: 333 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, iTmp As Short Dim sCmd As String ... |
|||||
| GetFromClipboard - Problem |
|||||
| Verfasst am: 29.11.2011, 09:37 Aufrufe: 431 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) End Sub Public Function HoleTextVonZwischenablage() As String Dim oData As New DataObject On Error Resume Next ' Brutal um falsche Formate abzuwürgen, gibt dann einen L ... |
|||||
| Physik Kreis-Kollision -> Die Reaktion |
|||||
| Verfasst am: 22.11.2011, 19:05 Aufrufe: 383 Sinken sie langsam runter. Ich kann es da nicht so einfach Lösen wie mit dem Border. Seht selbst: Hier das Gesamte Projekt zum Download: Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick Dim aN As Single Dim bN As Single Render.Refresh() Render.BackColor = Color.Black For i ... |
|||||
| Fehler Meldung im Webbrowser | "Skriptfehler" |
|||||
| Verfasst am: 02.11.2011, 21:54 Aufrufe: 453 ... er 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: Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ... |
|||||
| Source für einen Msg Creator |
|||||
| Verfasst am: 02.10.2011, 19:55 Aufrufe: 220 Also was ihr braucht: -2 Textboxen -1 Button Ihr platziert sie beliebig geht doppelclick auf den Button und gebt ein: Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click MsgBox(TextBox2.Text, TextBox1.Text) End Sub End Class |
|||||
| True Crypt |
|||||
| Verfasst am: 01.10.2011, 23:40 Aufrufe: 449 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 ... |
|||||
| Konvertierungsproblem beim Umwandeln einer Zahl |
|||||
| Verfasst am: 17.09.2011, 10:31 Aufrufe: 212 Hier mein Code: Private Sub cmdBerechnen_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmdBerechnen.Click Dim Ergebnis1, Ergebnis2 As Integer Dim Ergebnis3, Ergebnis4, Ergebnis5, Ergebnis6, Ergebnis7, Ergebnis8, Ergebnis9, Ergebnis10 As Double 'Formate der Ergebnisse festlegen ' Ergebnis 1 = Umrechnung ein Mitarbeiter pro Woche ' Ergebnis 2 = Summ ... |
|||||
| ListView Einstellung speichern/laden |
|||||
| Verfasst am: 26.08.2011, 12:20 Aufrufe: 554 ) wieder angezeigt werden. Der Inhalt der List ist nicht wichtig. 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.C ... |
|||||
| MySQL - da.Update(ds, "Tabellenname") |
|||||
| Verfasst am: 09.08.2011, 13:25 Aufrufe: 1410 Open() da.Update(ds, "Produktcode") MySQLcnn.Close() End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Dim ds1 As DataSet = ds.GetChanges If ds1 IsNot Nothing Then Try MySQLwrite(ds1) ds.Merge(ds1) ds.AcceptChanges() ... |
|||||
| Tabelle wird gelöscht |
|||||
| Verfasst am: 28.07.2011, 21:21 Aufrufe: 614 Hallo zusammen Ich habe folgendes Problem. Jedesmal wenn der "speichern" Button gedrückt wird, löscht es mir in der AccessDatenbank die Tabelle uebergaberapport. Kann mir wer helfen? Private Sub btn_speichern_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_speichern.Click Dim AccessDB As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Sourc ... |
|||||
| Objekt mit Pfeilen bewegen + Start-Button |
|||||
| Verfasst am: 21.07.2011, 19:29 Aufrufe: 703 Up, Keys.Down, Keys.Left, Keys.Right Return True End Select End Function Schritt 2 Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown If e.KeyCode = Windows.Forms.Keys.Up Then OvalShape1.Top -= 25 End If Wenn ich allerdings den Button einfüge, funktoniert meine Pfeil-Steue ... |
|||||
| Installierbares ISAM nicht gefunden |
|||||
| Verfasst am: 21.07.2011, 16:14 Aufrufe: 457 Ich will eine Datenbank "auslesen" und hab ich dabei an folgendem Tutorial orientiert: Der Source code lautet folgendermaßen Imports System.Data.OleDb Public Class Form1 Private Sub cmdAlleSehen_Click(...) Handles ... Dim con As New OleDbConnection Dim cmd As New OleDbCommand Dim reader As OleDbDataReader con.ConnectionString = &qu ... |
|||||
| VB-Daten in Excel speichern |
|||||
| Verfasst am: 20.07.2011, 17:09 Aufrufe: 774 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 ... |
|||||
| mehrere Clients ein Server |
|||||
| Verfasst am: 19.07.2011, 19:27 Aufrufe: 628 Any, 4000) Dim funktion As String() Dim mainthread As Threading.Thread Dim list As New List(Of Connection) '______________ Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Me.Show() Server = New TcpListener(ipendpoint) Server.Start() While ... |
|||||
| Tape Drive - Bandlaufwerk |
|||||
| Verfasst am: 25.06.2011, 14:01 Aufrufe: 668 . Als erstes würde ich gerne mal die PrepareTape Funktion ausprobieren ob überhaupt was geht - Der Rest der Backupsoftware kommt dann später 
Dazu hab ich mal folgendes zusammengetragen:
PrepareTape Function
Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.Click
secatt.bInheritHandle = 0&
secatt.lpSecurityDescriptor ... |
|||||
| Alle MouseEvents abfangen |
|||||
| Verfasst am: 22.06.2011, 23:10 Aufrufe: 408 solange Keyboard oder Maus genutzt wird, wird die Zeit erhöht. Es wäre auch eine Lösung, wenn man die Aktivität des Bildschirmschoners abfangen könnte. Habt ihr eine Idee für mich. Gruß Adelhorst Edit: Die MousePosition kann ich schon abfragen: Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer1.Tick Me.Button1.Text = MousePosition.ToString End Su ... |
|||||
| Download mit Backgroundworker sehr langsam :( |
|||||
| Verfasst am: 25.03.2011, 01:11 Aufrufe: 1244 0" Dim MyPfad As String = Path.GetDirectoryName(Application.ExecutablePath) Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click End End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Call DownloadItem("http://** ... |
|||||
| Textbox Inhalt Vererbung zwischen Klassen |
|||||
| Verfasst am: 18.03.2011, 14:15 Aufrufe: 324 ... Public Class Template Public Function Builder() As List(Of Control) Dim GI As GeneralInformation = New GeneralInformation Dim value As List(Of Control) = New List(Of Control) value.Add(GI.txtProjectNumber) Return value End Function End Class Public Class Add_Project Private Sub Page_Init(ByVal sender As Object, ByVal e As System.EventArgs) Handles ... |
|||||
| Mehrere Backgroundworker erstellen |
|||||
| Verfasst am: 17.03.2011, 13:03 Aufrufe: 828 ComponentModel.BackgroundWorker Die backgroundworker sollen erstellt und gestartet werden, indem man auf einen Button klickt: Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim Job As ListBox workeractive = True For Each Job In Jobarray Dim workcount As Integer = Job.Items.Item(1) ... |
|||||
| Webbrowser zeigt nur Bild keine Video... |
|||||
| Verfasst am: 26.02.2011, 10:16 Aufrufe: 462 . will ich aber das Live-Video anzeigen kommt die Fehlermeldung "Videostream - unbekannter Dateityp" (siehe Code Button1). Auszug aus dem Codexxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click WebBrowser1.Navigate("http://mediabox.dyndns.info/s ... |
|||||
| Könnte mir jemand was programmieren |
|||||
Verfasst am: 23.02.2011, 20:56 Aufrufe: 498  h. ich muss es noch richtig erlernen. Jetzt wollte ich aber fragen, ob mir jemand was programmieren könnte?
Hier der Code der graphischen Oberfläche:
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.Tex ... |
|||||
| Drucker fehler abfangen (Codesoft) |
|||||
| Verfasst am: 15.02.2011, 15:24 Aufrufe: 1086 Application = Nothing Private WithEvents MyActiveDocument As LabelManager2.Document = Nothing Private Sub LblDruck_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LblDruck.Click CodesoftApplication.EnableEvents = True 'Dokument geladen? If (noDocOpened) Then MessageBox.Show("Ein Etikett muss geladen sein!") Exit Sub ... |
|||||
| Formmailer |
|||||
| Verfasst am: 15.01.2011, 18:49 Aufrufe: 615 Net.Mail.MailMessage Imports System.Net.Mail Public Class Form1 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim MailMessage As New MailMessage(TextBox2.Text, TextBox3.Text) ' achtung! die ... |
|||||
| Webformular ausfüllen checkboxen Problem |
|||||
| Verfasst am: 02.01.2011, 11:35 Aufrufe: 736 Document.GetElementById("id_der_checkbox").Focus() SendKeys.Send(" ") und für radiobutton: fPrivate Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged If RadioButton1.Checked = True Then If RadioButton2.Checked = False Then WebBrowser1.Document.GetElementById ... |
|||||
| Webformular ausfüllen checkboxen Problem |
|||||
| Verfasst am: 31.12.2010, 14:46 Aufrufe: 736 spin.de bei der Registrierung bin so weit gekommen bis jz funzt auch alles aber wie gesagt brauch nur noch die beiden checkboxen besaetigen aber keine ahnung wie hab schon ganze zeit gegoogelt aber nichts gefunden Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim allelements As HtmlElementCollection = WebBrowser1.Document.All WebB ... |
|||||
| Daten in Tabelle schreiben |
|||||
| Verfasst am: 22.12.2010, 14:01 Aufrufe: 898 Hier ist der Code: Partial Public Class MainPage Inherits UserControl Public Sub New() InitializeComponent() End Sub Private Sub TextBox1_KeyUp(ByVal sender As System.Object, ByVal e As System.Windows.Input.KeyEventArgs) Handles TextBox1.KeyUp Static einl As Decimal 'Einlesen der Einmalanlage einl = CInt(TextBox1.Text) End S ... |
|||||
| VB2010 Grafiken |
|||||
| Verfasst am: 16.12.2010, 20:52 Aufrufe: 1031 Du mußt den ganzen Kram erst in eine virtuelle Bitmap zeichnen. Und auf das Repaint-Ereignis der Form lädst Du die Bitmap aus dem Speicher auf die Form: Public Class Form1 Dim g As Graphics Dim Buffer As Bitmap Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Buffer = New Bitmap(Width, Height, CreateGraphics) g = Grap ... |
|||||
| Ruckeln bei DrawReversibleFrame oder DrawFocusRect |
|||||
| Verfasst am: 16.12.2010, 20:36 Aufrufe: 571 Hier der Test-Quelltext: Imports System.Drawing Public Class Form1 Dim Block As clBlock Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 'erst einmal einen neuen Block erstellen, wenn dies noch nicht geschehen ist If Block Is Nothing Then Block = New clBlock(Me) Block.Left = 20 Block.Top = 20 E ... |
|||||
| Während der Laufzeit Labels erstellen - Fehler im code? |
|||||
| Verfasst am: 14.12.2010, 08:43 Aufrufe: 1203 Die Form hast einen Button (Name = "Cmd_SourceOeffnen", ein Panel (Name="Pnl_Filme") und eine Listbox (Name = "Lst_Filmliste") zur kontrolle (Hier werden alle Ordnernamen aufgeführt (funktioniert) Code: Public Class Form1 Private Sub Cmd_SourceOeffnen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cmd_SourceOeffnen.Click Dim MainFold ... |
|||||
| VB2010 Grafiken |
|||||
| Verfasst am: 07.12.2010, 23:13 Aufrufe: 1031 Wie kann ich sowas wie AutoRedraw() bei VB6 unter VB2010 erreichen? Beispielcode einer analogen Uhr: Es ist nur eine normale Form samt einem Timer erforderlich. --- Public Class Form1 Public x0, y0, r, rs, rm, rh As Integer ' Mittenkoordinaten, Radien Public g As Graphics Public m_Face As Bitmap Private Sub Form1_Shown(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Sho ... |
|||||
| Random Problem | Visual Basic |
|||||
| Verfasst am: 03.12.2010, 22:02 Aufrufe: 713 ... PQRSTUVWXYZabcdefghijklmnopqrstuvwxyz1234567890" Dim l As New Random Dim Buchstabennur As String = "-nopqrstuvwxABCDEFGHIJKefghijklmyzLMNOPQRSTUVWXYZabcd" Dim r As New Random Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ... |
|||||
| TEXT AUS TEXTBOX SEND PER KLICK BUTTON IN EIN CHAT |
|||||
| Verfasst am: 03.12.2010, 15:10 Aufrufe: 390 HALLO ICH WOLLTE MAL FRAGEN OB ES MÖGLICH IST ZUM BEISPIEL BEI EIN SPAMMER DEN EINGEBENDEN TEXT IN DER combobox1 SOFORT KLICK BUTTON AN DEN CHAT ZU SENDEN OHNE DEN CHAT ANZUKLICKEN UND MEIN PROBLEM AUSERDEM IST DAS WENN ICH ES SO MACHE SIEHE CODE: Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Timer1.Enabl ... |
|||||
| Text aus Textdokument in Textbox einfügen |
|||||
| Verfasst am: 02.12.2010, 14:28 Aufrufe: 587 |
|||||
| bilder in form durch button klick ersetzten in C:\Programs |
|||||
| Verfasst am: 30.11.2010, 19:41 Aufrufe: 633 |
|||||
| Webformular ausfüllen checkboxen Problem |
|||||
| Verfasst am: 25.11.2010, 18:50 Aufrufe: 736 spin.de bei der Registrierung bin so weit gekommen bis jz funzt auch alles aber wie gesagt brauch nur noch die beiden checkboxen besaetigen aber keine ahnung wie hab schon ganze zeit gegoogelt aber nichts gefunden Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim allelements As HtmlElementCollection = WebBrowser1.Document.All WebB ... |
|||||
| Neues Textdokument erstellen ? |
|||||
| Verfasst am: 11.11.2010, 17:46 Aufrufe: 714 My.Computer.FileSystem.WriteAllText(Environment.GetFolderPath(Environment.SpecialFolder.DesktopDirectory) & "\textnew.txt", (str)) der fehler wird in (str)) ANGEZEIGT ( |
|||||
| Neues Textdokument erstellen ? |
|||||
| Verfasst am: 11.11.2010, 09:32 Aufrufe: 714 hi ich kann zwar kein vb.net und da hab ich was missverstanden... aber die for schleife ist ganz einfach... Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click dim str as String for i = Text2.Text to Text3.Text str = str & text1.Text & i next My.Computer.FileSystem.WriteAllText(Environment.GetFolderPath(Environment.Spec ... |
|||||
| Neues Textdokument erstellen ? |
|||||
| Verfasst am: 10.11.2010, 20:53 Aufrufe: 714 |
|||||
| bilder in form durch button klick ersetzten in C:\Programs |
|||||
| Verfasst am: 03.11.2010, 19:24 Aufrufe: 633 ein freund sagte mir ich müsste es mit dem code hinbekommen Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim img As Image = Me.PictureBox1.BackgroundImage Dim ofd As New SaveFileDialog If ofd.ShowDialog() = DialogResult.OK Then img.Save(ofd.FileName, System.Drawing.Imaging.ImageFormat.Png) End If ab ... |
|||||