24-04-2012, 10:09 PM
Volete creare una chat come questa ?
Login:
Chat Online:
Chat Online + Impostazioni Aperte
Chat Online + Impostazioni Aperte + Pannello Staff
Da oggi si può
(Vi dico subito, che ho seguito un tutorial tedesco, quindi i nomi saranno in tedesco e dovrete rinominare i bottoni, le textbox ecc come lo rinomino io)
Attenzione! Prima di incominciare, create tre file di estensione .txt, e uppateli sul vostro server.
I file sono:
- "Chat.txt"
- "Benutzer.txt"
- "Kick.txt"
Login:
Chat Online:
Chat Online + Impostazioni Aperte
Chat Online + Impostazioni Aperte + Pannello Staff
Da oggi si può
(Vi dico subito, che ho seguito un tutorial tedesco, quindi i nomi saranno in tedesco e dovrete rinominare i bottoni, le textbox ecc come lo rinomino io)Attenzione! Prima di incominciare, create tre file di estensione .txt, e uppateli sul vostro server.
I file sono:
- "Chat.txt"
- "Benutzer.txt"
- "Kick.txt"
Importate 2 timer, e chiamateli rispettivamente "Downloader" e "Userlist".
A downloader date un tempo di circa 2.000 millisecondi, mentre a Userlist dategli 5.000 millisecondi.
Importate poi un ColorDialog.
Serviranno 10 Bottoni.
2 RichTextBox
1 ListBox
1 Textbox
1 TrackBar
Passiamo al codice:
Sotto a Public Class Form 1, inserite:
Spoiler:
Rinominate ora il bottone che servirà per inviare il messaggio (e non il testo, ma il nome di progettazione dovete rinominare!") in "Senden".
Fate la stessa cosa con il bottone delle impostazioni e rinominatelo in "Einstellungen".
Codice Bottone invia messaggio:
Spoiler:
Se vi da errore, non preoccupatevi è xk dobbiamo ancora rinominare delle altre cose.
Ora rinominate, la richtextbox che servirà per visualizzare i messaggi degli altri, in "Anzeigefeld".
Fate lo stesso, con la richtextbox che servirà per scrivere il vostro messaggio e rinominatela in "Eingabefeld".
Passiamo ora al timer "Downloader". Inserite questo codice:
Spoiler:
Passiamo ora al timer "Userlist". Inserite questo codice:
Spoiler:
Se vi da errore, non preoccupatevi, è perchè dobbiamo ancora rinominare altre cose.
Andiamo ora sulla TrackBar, che servirà per impostare la trasparenza del programma. Nelle proprietà, su Maximum, impostate il valore "2".
Inseritegli poi questo codice:
Spoiler:
Bene, abbiamo appena realizzato le funzioni base (quasi tutte).
Passiamo al My.Settings (ovvero le impostazioni modificabili nel My Project)
Impostate il vostro My.Settings, come nell'immagine sottostante:
Spoiler:
Prendete ora 3 bottoni, che ci serviranno per impostare:
- Colore di Sfondo
- Colore Testo
- Colore Bottoni
Rinominate (nel nome della progettazione ovviamente), il bottone del colore di sfondo in "Hintergrundfarbe".
Rinominate, il bottone del colore testo in "Textfeldfarbe".
Rinominate, il bottone colore bottoni in "Buttonfarbe".
Inserite nel bottone, colore di sfondo:
Spoiler:
Inserite nel bottone, colore testo:
Spoiler:
Inserite nel bottone, colore bottoni:
Spoiler:
Prendete ora un bottone, che servirà per kikkare gli utenti, e abbinateci la textbox che abbiamo importato prima, dove dovremmo inserire il nome dell'utente da kikkare. Rinominatelo in "Kick":
Spoiler:
Prendete ora un'altro bottone che servirà a cancellare tutta la conversazione in chat. Rinominatelo in "Chatverlauf_löschen":
Spoiler:
Andate ora nell'evento del Form1 "Closing" e inserite questo codice:
Spoiler:
Passiamo ora al form di login, di questa chat. Quindi inserite un'altro form.
Importate:
- 1 TextBox
- 1 Bottone
Sotto a Public Class Form 2, dichiarate le seguenti varibili:
Spoiler:
Inserite poi, nel Button 1:
Spoiler:
Andate poi nel MyProject, e inserite come form di avvio il "Form 2" e come Modalità di chiusura, selezionate quella "Alla chiusura dell'ultimo form."
Ora, se avete seguito tutto attentamente, il risultato dovrebbe essere simile al mio. Ringrazio Visual Basic 08 Team, per il tutorial.
iù: 1 accettati e commentate Ps: nel caso ne aveste fatta una, potete postare i vostri lavori qua sotto
