Visual Basic Forum

Visual Basic Forum
für VB6 und VB.NET Programmierer
  		RegistrierenRegistrieren  LoginLogin

Neues Thema eröffnen   Neue Antwort erstellen    Visual Basic Forum Foren-Übersicht -> [VB6] Source Codes
Autor
Nachricht
ZiG
Überflieger
Überflieger

Anmeldedatum: 16.04.2008
Beiträge: 421
[B] Builder source vom Tutorial
Verfasst am: 15.06.2009, 12:44
Da soviele scheinbar mit meinem Tutorial nicht zurecht kommen, poste ich euch mal den source als nette Funktion.

Builder:
Code:
' ==================================================================<br />' Simple Builder Example coded by ZiG for vb-x.org<br />'<br />' Feel free to use this source.<br />' ==================================================================<br /><br />Option Explicit<br /><br />Public Function Build_server(ByVal Savepath As String) As Boolean<br />On Error GoTo Err:<br /><br />'Loading Ressource<br />Dim buffer() As Byte<br />buffer = LoadResData(101, "CUSTOM")<br /><br />'Saving Ressource<br />Open Savepath For Binary As #1<br />Put #1, , buffer()<br />Close #1<br /><br />'Appending Informations/Options to the server<br />Dim options As String * 100<br />options = Text1.Text & "#" & Text2.Text & "#"<br />Open Savepath For Binary As #1<br />Put #1, LOF(1) + 1, options<br />Close #1<br /><br />Build_server = True<br /><br />Exit Function<br />Err:<br />Build_server = False<br />End Function
Server:
Code:
' ==================================================================<br />' Server Example<br />' ==================================================================<br /><br />Option Explicit<br /><br />Private Sub Form_Load()<br />Dim options As String, cmd() As String<br /><br />options = Get_Options(App.Path & "" & App.EXEName)<br />If Len(options) <> 0 Then<br /> cmd() = Split(options, "#")<br /> <br /> 'cmd(0) is Text1.Text<br /> 'cmd(1) is Text2.Text<br /> <br />Else<br /> GoTo Err:<br />End If<br /><br />Exit Sub<br />Err:<br /> 'Error<br />End Sub<br /><br />Public Function Get_Options(ByVal Filepath As String) As String<br />On Error GoTo Err:<br /><br />Dim options As String * 100<br /><br />Open Filepath For Binary As #1<br />Get #1, (LOF(1) - 99), options<br />Get_Options = options<br /><br />Err:<br />End Function
Wenn irgendwo ein Fehler ist, dann bitte melden.
Fragen bitte nur in der Sektion "Fragen und Antworten" stellen.

hf, ZiG
_________________
 
Neues Thema eröffnen   Neue Antwort erstellen    Visual Basic Forum Foren-Übersicht -> [VB6] Source Codes

Tags: builder, source, tutorial

  
 Verwandte Themen   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Wie kann ich mich bei euch anmelden?? 796 20.05.2002, 00:28
Keine neuen Beiträge Eine kleine Frage an euch.. 906 30.09.2007, 08:57
Keine neuen Beiträge TopMost Funktion unter DirectX 921 27.07.2007, 10:48
Keine neuen Beiträge Wie Funktion nutzen ? 1100 29.06.2007, 20:59
Keine neuen Beiträge update funktion einbauen 1341 28.01.2007, 23:11
 




[ Time: 0.1279s ][ Queries: 83 (0.0217s) ][ GZIP on - Debug on ]