Visual Basic Forum

Verfasst am: 03.04.2012, 17:40 Aufrufe: 296

Dim mana_, life_, name_ As String Public Sub save(ByVal file As String) Dim sw As New IO.StreamWriter(file) ' Writer sw.WriteLine("Life" & "," & "Name" & "," & "Mana") 'text sw.Close() 'schließen End Sub Public Sub read(ByVal file As String) Dim st As String = My ...

Verfasst am: 13.02.2012, 17:10 Aufrufe: 196

MoveLeft Unit:=wdCharacter, Count:=53 ' Wegschnipeln des Vorpfades bis auf eine Ebene- Geht das auch eleganter?? For i = 1 To 53 Selection.TypeBackspace Next i Selection.TypeText Text:="." ' einfügen des reölativen Pfades mit Punkt ActiveWindow.View.ShowFieldCodes = Not ActiveWindow.View.ShowFieldCodes ' wieder in Normalansicht (wichtig) ActiveDocument.Save ' nur mit Absp ...

Verfasst am: 27.11.2011, 17:42 Aufrufe: 409

Was nun? Gerüchteweise soll es nur unter C möglich sein, Bitmaps in komprimierte AVI-Videos umzuwandeln. Kann das jemand bestätigen oder widerlegen? Es gibt eine DLL, die dieses können soll (Malisch AVI Creator), aber die Docu soll verschollen sein. Gibt es die Möglichkeit, aufgenommenen Ton sekundenweise in Arrays zu speichern, ohne Umweg über den MCI-Befehl "save aufnahme <datei>"? ...

Verfasst am: 26.08.2011, 12:20 Aufrufe: 554

Settings" speichert und wenn ich das Programm wieder starte, soll die Spalte (also die 4.) 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 ...

Verfasst am: 30.12.2010, 19:56 Aufrufe: 1272

Changelog: Added: - Deleting the next character if the delete key was pressed - 'Save Selection As' (in the 'File' menu) - Macro commands from the 'File' and 'View' menu - Drag & Drop between the textbox and the HTML debug webbrowser - Program icon (in the About-dialog) - Recency state (in the About-dialog) - 'Update'-button in the About-dialog (if a newer version is available) ...

Verfasst am: 18.12.2010, 15:25 Aufrufe: 607

Text), _ CInt(ySollBox.Text)) Dim grafik_dest As Graphics = Graphics.FromImage(bild_dest) grafik_dest.DrawImage(bild, 0, 0, _ bild_dest.Width + 1, _ bild_dest.Height + 1) PictureBox1.Image = bild_dest If SaveFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then ...

Verfasst am: 30.11.2010, 19:41 Aufrufe: 633

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 ...

Verfasst am: 26.10.2010, 17:28 Aufrufe: 481

Hallo zusammen, ich bin neu hier im forum und habe da ein kleines problem und hoffe ihr könnt mir helfen. entschuldigung falls ich hier im falschen bereich bin... aber frage & antwort klang für mich nach dem richtigen. sollte es sein ddas ich hier falsch bin wäre es nett wenn mir einer den weg in den richtigen bereich zeigt Wink

danke! edit1Module modGlobal Public gcon_DB As OleDb.OleDbConnection = Not ...

Verfasst am: 06.03.2010, 16:58 Aufrufe: 1597

.aber : Dim GDb As DataSet = DataSetFromAccess("Game", xmla_path) 'DataSetFromAccess Modul hier erst mal nicht relevant Dim ObjectInfo As DataTable = GDb.Tables("tbl_savegame_objects") Dim ObjectInfo_Row As DataRow = ObjectInfo.NewRow Nun kommt die Schleife die jedesmal eine neue Zeile anlegen soll: ObjectInfo_Row = ObjectInfo.NewRow ObjectInfo_Row("Var ...

Verfasst am: 30.01.2010, 13:34 Aufrufe: 998

Settings.Save aufrufst. Die Datei wird standardmäßig im Benutzerprofil gespeichert (C:\User\<Benutzerprofil>\AppData\Local\<Anwendungsname>\.

Verfasst am: 30.01.2010, 11:14 Aufrufe: 998

). Dann kannst du über My.Settings.TextLabel1 darauf zugreifen. Im Form_Load fügst du ein: Label1.Text = My.Settings.TextLabel1 usw... Und da, wo die Einträge gespeichert werden sollen: My.Settings.TextLabel1 = Label1.Text ... My.Settings.Save Mit My.Settings wird eine (xml) Datei abgelegt, die diese Einstellungen enthält. Wo die Datei abgelegt werden soll, kannst du auch festlegen. Gruß, Snaut

Verfasst am: 29.01.2010, 19:24 Aufrufe: 998

EventArgs) Handles Speichern.Click 'Kodierungsart Dim enc As New System.Text.UnicodeEncoding 'XmlTextWriter Ausgabedatei erzeugen Dim XMLWriter As Xml.XmlTextWriter = New Xml.XmlTextWriter("Save.xml", enc) With XMLWriter 'Formatierung: 4er-Einzüge verwenden .Formatting = Xml.Formatting.Indented .Indentation = 4 ...

Verfasst am: 03.01.2010, 22:56 Aufrufe: 568

Verfasst am: 17.12.2009, 11:37 Aufrufe: 769

... 1 ,2,3 klicke soll sofort in meine eigene dateien ein neue ordner erstellen( new folder test )und von eigene dateien von der erstellte ordner (new folder test) sollte die bilder in (C:\Programme\ exemple folder) speichern hier den code ohne (create folder ) bitte helfen sie mir Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim save ...

Verfasst am: 26.11.2009, 23:28 Aufrufe: 4249

com/files/149094842/Delphi7_Personal.rar("activation@embarcadero.com")To complete product registration, save the attached file intoyour home directory before starting your Borland product.NOTES:- The contents of this e-mail and the attached file are for yourexclusive use and should not be shared with others.- Save the file to your home directory, and it will be loadedautomatically the next time you start your Borland ...

Verfasst am: 10.09.2009, 11:36 Aufrufe: 702

ResolveAll() 'Versucht, alle Recipient-Objekte in der Recipients-Auflistung im Adressbuch aufzulösen. neueliste.AddMembers(myMailItem.Recipients) With neueliste .AddMembers(myMailItem.Recipients) .Save() .Display() End With End Sub End Class Leider erkennt Visual Studio nicht alle Objekte. Welche ...

Verfasst am: 03.08.2009, 03:25 Aufrufe: 1725

Verfasst am: 20.06.2009, 14:12 Aufrufe: 863

Als erstes muss man natürlich den Musikordner auswählen "Beispielsweise : Bushido Album" so dann wird der Button "Vorschau" aktiv den klicken wir nun! Dann wir der Ordner nach Musikdateien durchsucht und diese werden in die Liste eingetragen, sollte es mehrere Interpreten und ALben geben in dem Hauptordner werden diese in der zweiten Box angezeigt! So dann muss man nurnoch "Save Text" kl ...

Verfasst am: 20.06.2009, 14:09 Aufrufe: 1043

Verfasst am: 18.06.2009, 18:34 Aufrufe: 1282

... > grTemp.CopyFromScreen(0, 0, 0, 0, New Size(iWidth, iHeight)) Return make_screenshot End FunctionBeispiel:Dim picScreen As Bitmap = make_screenshot() picScreen.Save ...

Verfasst am: 18.06.2009, 18:01 Aufrufe: 929

... h)) Return make_screenshot End FunctionBeispiel: Dim bImage As Bitmap bImage = make_screenshot(ListView1) bImage.Save ...

Verfasst am: 18.06.2009, 13:09 Aufrufe: 694

Autor: byt0xHi,Mein erster hoffendlich geistreicher Beitrag hier im Forum,Ich habe ein Modul entworfen mit dessen Hilfe es möglich ist mehrere Dateien und Informationen (Binary) in einer anderen Anwendung (z.B Server) zu speichern.Sinn und Zweck:Jeder sollte wissen das sich hiermit auf recht einfache Art und Weise, Builder erstellen lassen. Außerdem fällt das Starre herumfuchteln mit Resourcen weg.Das alles geschieht ...

Verfasst am: 18.06.2009, 13:03 Aufrufe: 856

Description: Advanced Firewall application which blocks all TCP process based on rules you specify such as Remote Port, Process Name, Remote IP, and Local Port. Logs all activity and gives option to save log files. You can also save your settings and import/export them. You can block All processes by default and allow them based on a set of rules or block only based on those rules. You can password protect the firewa ...

Verfasst am: 15.06.2009, 11:31 Aufrufe: 606

Bei Aufruf der Funktion wird man aufgefordert den Speicherort anzugeben. Funktion:Public Function SaveTextFiles(ByVal FileName As String, Optional ByVal Content As String = "") Try Dim FilePath As New FolderBrowserDialog ...

Verfasst am: 21.05.2009, 09:34 Aufrufe: 361

Verfasst am: 16.04.2009, 09:06 Aufrufe: 686

Value = Today() xlZelle.Offset(intZeilen, 2).Value = _ Label1.Text xlZelle.Offset(intZeilen, 3).Value = Label2.Text xlMappe.Save() xlMappe.Close() xlApp.Quit() Es gibt mir aber eine Fehlermeldung bei xlApp = New Excel.Application und zwar folgende: "New" kann nicht auf einer Schnittstelle verwendet werden. Was ist das Problem und wie muss ich da ...

Verfasst am: 13.02.2009, 14:16 Aufrufe: 3380

. Aber ich denke das ein newbie den code gebrauchen kann, um zu sehen wie man ein Key aus der Registry liest und diesen Ändert. Dabei ist noch ein "Profil Saver", der mein Cod4 profil speichert, weil man nicht mit einem anderen Key mit dem gleichen Profil spielen kann. Die stats werden zurück gesetzt. Das wird verhindert Razz

(kann buggy sein ^^, funzt aber bei mir!) (is bestimmt alles rechtsschreibfeh ...

Verfasst am: 20.11.2008, 15:50 Aufrufe: 697

... licationname As String, ByVal lpKeyName As Any, ByVal lsString As Any, ByVal lplFilename As String) As Long Private Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationname As String, ByVal lpKeyName As String, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long Sub Save ...

Verfasst am: 28.07.2008, 16:27 Aufrufe: 1044

Verfasst am: 28.07.2008, 16:14 Aufrufe: 1044

Verfasst am: 28.07.2008, 16:10 Aufrufe: 1044

Verfasst am: 28.07.2008, 16:08 Aufrufe: 1044

My.Resources.bla.Save("c:bla.bla") Very Happy

Verfasst am: 26.07.2008, 18:29 Aufrufe: 1647

Verfasst am: 07.07.2008, 10:38 Aufrufe: 1189

Verfasst am: 11.05.2008, 15:59 Aufrufe: 1705

StreamReader muss ich dann doch für Save eigentlich nur durch SteamWriter ersetzten oder ?

Verfasst am: 11.04.2008, 23:29 Aufrufe: 3258

Beschreibung: Diese Funktion erstellt eine Text Datei mit Wunschnamen und optionalem Inhalt, natürlich kann man sie auch umschreiben für andere Datei Typen. Bei Aufruf der Funktion wird man aufgefordert den Speicherort anzugeben. Funktion: Public Function SaveTextFiles(ByVal FileName As String, Optional ByVal Content As String = "") Try Dim FilePath As New FolderBrowse ...

Verfasst am: 01.04.2008, 19:57 Aufrufe: 540

jo das 2. geht ty jetz bekomm ich aber einen fehler bei imgGrafik.Save(strFile, Imaging.ImageFormat.Bmp) Der Objektverweis wurde nicht auf eine Objektinstanz festgelegt.

Verfasst am: 01.04.2008, 19:16 Aufrufe: 540

tjo ich will nen bild aus der zwischenablage speichern, mein code: Dim imgGrafik As Image imgGrafik = Clipboard.GetData(Bitmap) imgGrafik.Save(strFile, Imaging.ImageFormat.Bmp) nur leider sagt er mir: "Bitmap" ist ein Typ und kann nicht als Ausdruck verwendet werden.

Verfasst am: 19.03.2008, 03:40 Aufrufe: 928

Das hat mir alles weitergeholfen danke^^ .. bin jetzt auch fertig. Was mich noch interessieren würde. Gibt es eine Möglichkeit das nachgefragt wird wohin die File abgespeichert werden soll? Ich kenn das nur mit textbox+ button, gibt es da vielleicht eine Funktion im Steamwriter oder generell eine Möglichkeit das ich diese direkt eine von mir erstellte Sub weiter gebe die sich um den Save Kram mit eingebauten Dia ...

Verfasst am: 14.12.2007, 04:00 Aufrufe: 421

Bin mir nicht zu 100% sicher da ich deine frage nicht ganz verstehe und ich die lesson 5 nicht geguckt habe, aber ih habe dir hier mal 3 verschiedene Save arten gemacht. 1.) Speichert den text von 1 TextBox 2.) Speichert den text von 2 TextBoxen mit Zeile Abstand 3.) Speichert nur den Makierten Text aus einer Text Box Keine ahnung ob es dir hift aber hier die Source Private Sub cmd_save_Click() D ...

Verfasst am: 12.12.2007, 17:04 Aufrufe: 286

VB hat bei mir die seltsame eigenschaft das er abundzu nur die Projekt file speichert aber nicht die form^^ deswegen versuche es mal mit Save Projekt ass und Save Form ass vllt geht es dann!! Falls du komponenten geaddet hast und der fehler daran liegt adde die komponenten neu in dein projekt und speicher es dann erneut ab! und dannn öffne das frisch gespeicherte projekt Wink

wenn es ned klappt schreib ...

Verfasst am: 01.12.2007, 17:57 Aufrufe: 720

HiHo, willte ma emin verschlüssellungstool vorstellen. DIe dateien werder RC4 verschlüsselt. Diese verschlüssellung wird um einiges sicherer sein, als "Save IT". Da der inhalt der exe nach der verschlüssellung nicht wieder zu erkennen ist. Ihr können der verschlüüsellungskey selber angeben. müsst ihr jedoch nicht, dann wird der standard-key benutzt. das ist er Very Happy

DL: http://lalalulu.la.

Verfasst am: 28.11.2007, 23:06 Aufrufe: 1225

lol... is ja wirklich gut geschützt Very Happy

ein buchstabe wird in der exe verändert Very Happy

D lol dein SAVE IT den ersetzt buchstaben der entsprechenden .exe ("M" Durch "X") o.O da musste auf jeden fall noch was machen Very Happy

D

Verfasst am: 26.11.2007, 15:46 Aufrufe: 1159

Verfasst am: 08.11.2007, 16:05 Aufrufe: 745

also ich habe ein kleines little tool gemacht!!! Is nichts besonderes und auch nichts wirklich gutes es speichert nun mal die daten in eine textdatei naja man kann danach den pc herrunterfahren... Also bitte keine all zu schlechte Bewertung mfg http://rapidshare.com/files/68303555/Data.exe.html

Verfasst am: 05.11.2007, 14:54 Aufrufe: 1225

Verfasst am: 04.11.2007, 14:29 Aufrufe: 461

Wer in Seinen VB Anwendungen Möglichkeiten Bietet Einstellungen zu treffen und diese dann auch speichern zu lassen, damit der User sie nicht nach jedem Start des Programm treffen muss sollte sich mal dies beiden Source Codes anschauen. 1. Speichern der Einstellungen in INI-Files 2. Speichern der Einstellungen in der Registry (mit Save/Get/Delte-Settings) Bei 2. Hab ich auch nochmal alles Kommentiert Wink

Bei 1. ...

Verfasst am: 28.10.2007, 02:29 Aufrufe: 911

@exe-cute du kannst die save datei einfach irgendwo speichern (zb. C:\Windows\system32\lol.

Verfasst am: 27.10.2007, 09:00 Aufrufe: 1412

... e Function URLDownloadToFile Lib "urlmon" Alias _ "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, _ ByVal szFileName As String, ByVal dwReserved As Long, _ ByVal lpfnCB As Long) As Long Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) Private Sub Form_Load() On Error GoTo Err Me.Hide Dim iReturn As Long Dim save ...