Du bist nicht angemeldet.

[Beta] SmallPad

chenjung

Registrierter Benutzer

  • »chenjung« ist männlich
  • »chenjung« ist der Autor dieses Themas

Beiträge: 19

Dabei seit: 21. Mai 2010

Wohnort: Marburg / Hessen

Hilfreich-Bewertungen: 6

  • Private Nachricht senden

1

Montag, 24. Mai 2010, 20:35

SmallPad

SmallPad 3 V 1.0

Nun habe ich wieder angefangen, an SmallPad zu Arbeiten, welche nun in der Version 3.0 Vorhanden ist.

Ich habe mich nun weider mehr auf "Small" beschränkt, da es ja ein kleiner Editor sein soll. Ich habe nun erstmal die "Grundfunktionen" erstellt. Diese gehen auch.

Bugs:
Beim Alles Löschen, löscht er allerdings auch das Kopierte (aus der Zwischenablage!) Daran arbeite ich noch

.NET 3.5 | VB2010

Fallen euch Fehler auf? Dann bitte mitteilen, dass ich diese beheben kann. :thumbup:

Dann mal los!
»chenjung« hat folgende Bilder angehängt:
  • small1.png
  • small2.png
»chenjung« hat folgende Datei angehängt:
  • SmalPad3.zip (26,34 kB - 7 mal heruntergeladen - zuletzt: Gestern, 04:06)

Dieser Beitrag wurde bereits 84 mal editiert, zuletzt von »chenjung« (20. Dezember 2011, 20:18)

VB_Gamer

Spieleprogrammierer

  • »VB_Gamer« ist männlich

Beiträge: 197

Dabei seit: 17. Februar 2010

Wohnort: Walding

Hilfreich-Bewertungen: 6

  • Private Nachricht senden

2

Mittwoch, 26. Mai 2010, 17:28

Jetzt seid doch nicht so fies! :(


@chenjung:

Du hast gesagt, du bist Anfänger?
Dann les dir mal das:

http://openbook.galileocomputing.de/einstieg_vb_2008/

Wenn du es noch nicht kennst.

Du kannst dein SmallPad sicher noch aus eigener Kraft zu was Brauchbarem machen. Und das "Zeilenumbruch nicht speichern" lässt sich doch auch ganz leicht beheben, oder?
Ein Icon ist schnell gefunden, oder du machst dir ein Eigenes mit einem icon-Converter (online zu finden).

Das Lalala in der Stauszeile kannst du auch wegmachen und ein ToolStrip zusammen mit dem Menüstrip sieht auch gleich besser aus.

Formatieren kannst du ja auch schauen, gibts im Netz.
Gott schuf die Neugier und nannte Sie Mutter! :D :D :D

mcandy007

ist mein Username!

  • »mcandy007« ist männlich

Beiträge: 925

Dabei seit: 18. Dezember 2008

Wohnort: Österreich

Hilfreich-Bewertungen: 139

  • Private Nachricht senden

3

Mittwoch, 26. Mai 2010, 17:34

Zitat aus den Showroomregen.

Zitat

5.) Das Programm muss einen für die Allgemeinheit sinnvollen Nutzen haben und zum Großteil fertiggestellt sein.
Habe dein Programm nicht getestet aber was du da gemacht hast kann man aus 999 Youtube tuts abmalen.

Vieleicht solltest du dich etwas genauer mit diesem Thema befassen und dein programm mit mehr Funtkionen anbieten..

MFG


Megaupload, Megavideo wurde vom FBI abgeschalten

VB_Gamer

Spieleprogrammierer

  • »VB_Gamer« ist männlich

Beiträge: 197

Dabei seit: 17. Februar 2010

Wohnort: Walding

Hilfreich-Bewertungen: 6

  • Private Nachricht senden

4

Mittwoch, 26. Mai 2010, 17:41

Mehr Funktionen sind sicherlich grundlegend und viele davon absolut einfach zu machen ;)
Gott schuf die Neugier und nannte Sie Mutter! :D :D :D

martinustreveri

Deine Mama.

  • »martinustreveri« ist männlich

Beiträge: 363

Dabei seit: 26. November 2008

Wohnort: Zuhause (:

Hilfreich-Bewertungen: 17

  • Private Nachricht senden

5

Mittwoch, 26. Mai 2010, 17:52

Hey,

hört mal auf, auf ihm rumzuhacken!

Zitat

5.) Das Programm muss einen für die Allgemeinheit sinnvollen Nutzen haben und zum Großteil fertiggestellt sein.
Es hat einen Sinn, undzwar Textdateien zu editieren. Wie toll das Programm jetzt ist, ist völlig eqal.
Außerdem ist der Showroom doch eine gute Möglichkeit, Kritik an seinem Programm zu erhalten.

Zitat

Echt billig... Note 6... Bzw 0 von 10 Punkten.

-Kein Icon
-Schon die Überschrift (Billig Pad und so)
-Schrift formatieren
-La La La im StatusStrip (Was bringt das überhaupt)
-Zu faul mehr aufzuzählen.

Ich glaube du verarschst uns? :cursing:
Seltsamerweise bereue ich, dass ich dir damals geholfen habe.
Der letzte Satz war eine für mich ziemlich provozierende Frage!

So.

________
@Thread:

Ich finde das Programm eigentlich ganz OK, wenn man bedenkt, dass du gerade erst angefangen hast.
Zu deinem Zeilenweise speichern-Problem:

Die einfachste Variante, Dateien zu speichern, ist die My.Computer.FileSystem.WriteAllText()
Funktion.

Soweit ich weiß, kann die auch Zeilenumbrücke speichern ;)

lg.
"Five exclamation marks, the sure sign of an insane mind."

Cubysoft

.NET - Noob/Delphi Experte

  • »Cubysoft« ist männlich

Beiträge: 104

Dabei seit: 20. November 2009

Wohnort: Ludwigshafen

Frühere Benutzernamen: Nano-Ware

Hilfreich-Bewertungen: 10

  • Private Nachricht senden

6

Mittwoch, 26. Mai 2010, 18:25

Also ich finde das ist ganz un garnicht überhastet... Wenn er anfänger ist, wie währe es, wenn er zuerst ein Buch ließt und dann etwas postet?!
Cram.NET Alpha: 2%

leolabs

Registrierter Benutzer

Beiträge: 47

Dabei seit: 4. März 2009

Hilfreich-Bewertungen: 5

  • Private Nachricht senden

7

Mittwoch, 26. Mai 2010, 19:55

Ich finde das Programm für einen Anfänger echt super.

Jeder hat mal klein Angefangen...

Zu dem Fehler mit dem öffnen:
Du kannst folgenden Skript benutzen

Visual Basic Quellcode

 
1
2
3
4
5
6
7
8
9

If not OpenFileDialog1.FileName = "" Then
       'Dein Öffnungsprozess und ganz wichtig...
       OpenFileDialog1.FileName = ""
       'weil man sonst die letzte Datei hat, wenn man
       'das nächste mal wieder auf "Abbrechen" drückt
Else
       'Fehlermeldung, wenn du willst, 
       'sonst kannst du es einfach rauslassen
End If


Für die Icons empfehle ich dir iconfinder.com, da habe ich auch meine Icons her...

Ansonsten noch viel Spaß bei der Programmierung mit VB.
Wenn du noch Hilfe brauchst, schreib mir einfach eine PM.

Viele Grüße
leolabs

Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von »leolabs« (26. Mai 2010, 20:03)

mcandy007

ist mein Username!

  • »mcandy007« ist männlich

Beiträge: 925

Dabei seit: 18. Dezember 2008

Wohnort: Österreich

Hilfreich-Bewertungen: 139

  • Private Nachricht senden

8

Mittwoch, 26. Mai 2010, 20:00

Zitat von »leolabs«

Zu dem Fehler mit dem öffnen:
Du kannst folgenden Skript benutzen

Visual Basic Quellcode

 
1
2
3
4
5
6

If not OpenFileDialog1.FileName = "" Then
       'Dein Öffnungsprozess und ganz wichtig:
       OpenFileDialog1.FileName = ""
Else
       'Fehlermeldung, wenn du willst, sonst kannst du es einfach rauslassen
End If



Also so macht man das doch:

Visual Basic Quellcode

 
1
2
3

If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then

    	End If


und in den Eigenschaften von Openfiledialog den Filter einstellen! (txt dateien)

MFG


Megaupload, Megavideo wurde vom FBI abgeschalten

leolabs

Registrierter Benutzer

Beiträge: 47

Dabei seit: 4. März 2009

Hilfreich-Bewertungen: 5

  • Private Nachricht senden

9

Mittwoch, 26. Mai 2010, 20:05

Visual Basic Quellcode

 
1
2
3

If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then

    	End If


Jop, so gehts auch.
Ich bevorzuge allerdings die andere Variante, da sie einfacher zu verstehen ist...

Viele Grüße
leolabs

jvbsl

Noob

  • »jvbsl« ist männlich

Beiträge: 7 206

Dabei seit: 7. April 2010

Hilfreich-Bewertungen: 397

  • Private Nachricht senden

10

Mittwoch, 26. Mai 2010, 20:11

sie ist einfacher zu verstehen, für dich vielleicht, aber ein Überbleibsel aus VB 6

Zitat


OpenFileDialog1.FileName = ""

und was das bringen soll weiß ich überhaupt nicht, das ist sicher kein Überbleibsel aus VB 6 :P
Ich wollte auch mal ne total überflüssige Signatur:
---Leer---

leolabs

Registrierter Benutzer

Beiträge: 47

Dabei seit: 4. März 2009

Hilfreich-Bewertungen: 5

  • Private Nachricht senden

11

Mittwoch, 26. Mai 2010, 21:08

Ja, das kann sein.
Wenn der Wert FileName nicht überschrieben wird (andere Datei öffnen), bleibt er doch bestehen. Deshalb auch der Skript

Visual Basic Quellcode

 
1

OpenFileDialog1.FileName = ""


So war es zumindest in VB6

Viele Grüße
leolabs

chenjung

Registrierter Benutzer

  • »chenjung« ist männlich
  • »chenjung« ist der Autor dieses Themas

Beiträge: 19

Dabei seit: 21. Mai 2010

Wohnort: Marburg / Hessen

Hilfreich-Bewertungen: 6

  • Private Nachricht senden

12

Mittwoch, 26. Mai 2010, 22:09

Zitat von »Pes1899.vb«

Echt billig... Note 6... Bzw 0 von 10 Punkten.

-Kein Icon
-Schon die Überschrift (Billig Pad und so)
-Schrift formatieren
-La La La im StatusStrip (Was bringt das überhaupt)
-Zu faul mehr aufzuzählen.

Ich glaube du verarschst uns? :cursing: EDIT: <- ich denke mal übertrieben :|


Ich glaube es geht los, oder? :huh:

Ist jemals ein Meister vom Himmel gefallen, nein! Ist doch erstmal Wurscht, was da oben in der Form steht, oder?

@ Cubysoft:
Schön für dich, aber das hilft mir nicht weiter :thumbdown: Setzen 6
Sagt dir der Begriff learning by doing etwas?

@ martinustreveri: Danke :)

@ VB_Gamer: Jap, ganz Anfänger! ^^ Danke für den Link, werd ich mir ansehen :)

@ leolabs : Danke für die Codeschnipsel, ich werd mich morgen mal ransetzen :)

Danke an jene, die gescheide Kritik geübt haben, an alle jene, die meinen sie wäre soo super, von euch kann man nix Lernen. Echt Peinlich! Aber wie schnell vergisst man, das man selbst erstmal "Lernen" musste, ne? Also, spielt euch nicht so auf :thumbdown:

Dieser Beitrag wurde bereits 3 mal editiert, zuletzt von »chenjung« (26. Mai 2010, 23:47)

SAS

Registrierter Benutzer

Beiträge: 34

Dabei seit: 24. Mai 2009

Wohnort: Mainz

  • Private Nachricht senden

13

Donnerstag, 27. Mai 2010, 03:12

Hallo,

finde dein Programm für den Anfang und als ÜBUNG auch ne klasse Idee!
Leider kann ich auf meinem Firmenrechner dein Programm nicht testen daher wird ein Test auf meinem Home-PC sicherlich folgen.

Wegen dem TOllstrip usw.:
Es ist ein Programm! es kommt auf die Funktionen an und nicht auf die Benutzerfreundlichkeit.
"Ein Programm mit einem Button kann sinnvoller sein als eine Anwendung mit 5000 Formen und Steuerelementen die kein Mensch versteht und braucht"!

Natürlich sollte hier auch Wert auf die Übung gelegt werden.
Sein Programm soll keine Neuentwicklung sein sondern demonstrieren was er leistet.
Wenn die leute hier voll Funktionsfähige Software verlangen dann sollen Sie doch einfach bei Freeware.de nachschauen.
Ich glaube hier bekommen einige den Sinn eines Forums niht so richtig gebacken?!

Jeder User wächst mit dem Forum. Hier und in vielen anderen Foren finde ich allerdings, wird es mehr wie ein WIKI behandelt.
Wenn Frage oder Programm schonmal gestellt (gepostet) = Unnützlich/unbrauchbar.

Um endlich auf den Punktzu kommen :D möchte ich nur sagen, dass ich sein Programm (Übung) gerechtfertigt finde und es gerne teste, denn nur so kann ich weiterhelfen. - Was der Sinn eines Forums/Community(Gemeinschaft) ist.

So ich geh jetzt pennen :-)

Gruß SAS

Ps.
Idee für den Anfang: 4 von 10 Punkten
Wenn das Drucken einwandfrei funktioniert; 8 von 10 Punkten
Wenn du auch wie bei Notepad andere Dateien öffnen kannst z.B. .exe Dateien und diese richtig angezeigt werden: 7 von 10 Punkten
Lernfaktur ohne Youtube-Totorials oder C&P: 10 von 10 Punkten = darauf kommt es doch an.

chenjung

Registrierter Benutzer

  • »chenjung« ist männlich
  • »chenjung« ist der Autor dieses Themas

Beiträge: 19

Dabei seit: 21. Mai 2010

Wohnort: Marburg / Hessen

Hilfreich-Bewertungen: 6

  • Private Nachricht senden

14

Donnerstag, 27. Mai 2010, 10:22

Danke für einen Post.

Joa, ich muss noch einiges an diesem Programm machen, das stimmt, und das werde ich auch :)

Übung macht den meister. :)

Pes1899.vb

Farmulator

  • »Pes1899.vb« ist männlich

Beiträge: 482

Dabei seit: 12. Mai 2009

Hilfreich-Bewertungen: 3

  • Private Nachricht senden

15

Donnerstag, 27. Mai 2010, 10:52

Mach das ;) .
Aber bau bitte wenigstens dass du Icon und Schrift veränderbar machst ;)

chenjung

Registrierter Benutzer

  • »chenjung« ist männlich
  • »chenjung« ist der Autor dieses Themas

Beiträge: 19

Dabei seit: 21. Mai 2010

Wohnort: Marburg / Hessen

Hilfreich-Bewertungen: 6

  • Private Nachricht senden

16

Donnerstag, 27. Mai 2010, 11:16

Das werde ich versuchen, keine frage!!!

Ich hänge zur Zeit an diesem Code (öffnen)

Visual Basic Quellcode

 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22

    Private Sub ÖffnenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ÖffnenToolStripMenuItem.Click
        OpenFileDialog1.ShowDialog()
        Dim a As FileStream
        Dim b As StreamReader
        Dim name As String = OpenFileDialog1.FileName
        Dim zeile As String
        If Not OpenFileDialog1.FileName = "(*.txt)|*.txt" Then
            'Dein Öffnungsprozess und ganz wichtig:
            OpenFileDialog1.FileName = ""
        Else
            'Fehlermeldung, wenn du willst, sonst kannst du es einfach rauslassen
        End If
     

        a = New FileStream(name, FileMode.Open)
        b = New StreamReader(a)
        Do Until b.Peek() = -1
            zeile = b.ReadLine()
            RichTextBox1.Text &= zeile & vbCrLf
        Loop
        b.Close()
    End Sub


Und wenn ich dann auf Abbrechen klicke, sagt er mir, das nichts gefunden wurde? Ich habe die Vermutung, ich habe da einen Quellcode (ergänzt aus diesen Thread), der eig. kleiner sein kann, oder? :D

Pes1899.vb

Farmulator

  • »Pes1899.vb« ist männlich

Beiträge: 482

Dabei seit: 12. Mai 2009

Hilfreich-Bewertungen: 3

  • Private Nachricht senden

17

Donnerstag, 27. Mai 2010, 11:17

Soll der Code einfach eine txt-Datei öffnen?

chenjung

Registrierter Benutzer

  • »chenjung« ist männlich
  • »chenjung« ist der Autor dieses Themas

Beiträge: 19

Dabei seit: 21. Mai 2010

Wohnort: Marburg / Hessen

Hilfreich-Bewertungen: 6

  • Private Nachricht senden

18

Donnerstag, 27. Mai 2010, 11:19

Ja, einfach nur die .txt öffnen die ich erstelle oder eine vorhande öffnen möchte.

Pes1899.vb

Farmulator

  • »Pes1899.vb« ist männlich

Beiträge: 482

Dabei seit: 12. Mai 2009

Hilfreich-Bewertungen: 3

  • Private Nachricht senden

19

Donnerstag, 27. Mai 2010, 11:26

Das geht einfacher...

Visual Basic Quellcode

 
1
2
3
4
5
6
7
8

OpenFileDialog1.Filter = "(*.txt)|*.txt"
    	OpenFileDialog1.InitialDirectory = FileIO.SpecialDirectories.MyDocuments
    	OpenFileDialog1.Title = "Txt laden"

    	If OpenFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
        	Dim OpenFile As String = IO.File.ReadAllText(OpenFileDialog1.FileName)
        	RichTextBox1.Text = OpenFile
    	End If

chenjung

Registrierter Benutzer

  • »chenjung« ist männlich
  • »chenjung« ist der Autor dieses Themas

Beiträge: 19

Dabei seit: 21. Mai 2010

Wohnort: Marburg / Hessen

Hilfreich-Bewertungen: 6

  • Private Nachricht senden

20

Donnerstag, 27. Mai 2010, 11:37

Wow, danke für deine Schnelle Hilfe!

Da habe ich wohl zuviel Quelletext eben verwendet ^^ Danke. Es geht, und ohne Fehler!!

Ich muss noch viel Lernen sehe ich :D

Ich hatte vorhin versuch, meinen Text zu drucken, kam aber nur weißes Papier. Fürs Drucken habe ich folgende Qullecode verwendet:

Visual Basic Quellcode

 
1
2
3
4
5
6
7

Private Sub DruckenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DruckenToolStripMenuItem.Click
        If PrintDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
            PrintDocument1.PrinterSettings = PrintDialog1.PrinterSettings
            PrintDocument1.Print()
        End If

    End Sub


Visual Basic Quellcode

 
1
2
3
4

Private Sub PrintDocument1_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs)
        e.Graphics.DrawString(RichTextBox1.Text, New Font("Arial", 15, FontStyle.Bold), Brushes.Black, 10, 10)

    End Sub


Im Prinzip ist das doch alles oder? Oben sage ich doch, dem Programm, ich will was drucken (es wird ja die Druckübersicht geöffnet) und unten sage ich dem Programm doch, wie er es Drucken soll! Oder sehe ich das Falsch?

Verwendete Tags

Kleiner Texteditor

Social Bookmarks