Tutorial's von A - Z (www.Knuddels.de.ch.at.MFC)

[TuT] Multilogin (MDI)

Hay!

Heute zeige ich euch, wie ihr einen Multilogin mit MDI macht.

Als erstes das Layout.
Form1:

This image has been resized. Click this bar to view the full image. The original image is sized 548x443.

(Menustrip)
Form2:

(Webbrowser(Dock=Fill))

Nun die Codes:

Form1_Load:

Code:

Me.IsMdiContainer = True

Form1_Hinzufügen

Code:


        Dim Form As New Form2
        Dim Fenster As Integer
        Form.MdiParent = Me
        Fenster += 1
        Form.Text = "Knuddels.de   [" & Fenster & "]"
        Form.WebBrowser1.Navigate(Application.StartupPath & "/Knuddelsde.html")
        Form.Show()

Form1_Entfernen

Code:

For Each Form As Windows.Forms.Form In MdiChildren
            Form.Close()
        Next

Das wars eigl. schon

Nun legt ihr nur noch eine HTML-Datei in dem Ordner eures Multilogins an: Knuddelsde.html.
In die kommt folgendes:

HTML-Code:

<html>
<head>
</head>
<body bgcolor="#E3E3E§">
<applet code="GroupChat.class" archive="knuddelsk89yc.jar" codebase="http://213.61.5.150/" WIDTH="579" HEIGHT="280">
<param name=PORT value="2710,80">
<param name=background value="D9ABEE">
<param name=foreground value="0">
<param name=foregroundList value="000000">
<param name=backgroundList value="F7D1FF">
<param name=suggestion value="Knuddels">
<param name=idPic value="kde">
<param name=appletID value="0">
<param name=categories value="Flirt|3|Over 20>Channels>Lokalrunde|4|Under 18|5|Lokalrunde>Channels>20+|6|Games|7|Classic|8|Themetalk|9|Alle Channels|0">
<param name=languageID value="0">
<param name=layoutID value="0">
<param name=resource value="imgsk89yc.zip">
<param name="cache_archive" VALUE="knuddelsk89yc.jar">
<param name="cache_version"   VALUE="1.0.0.1">
<param name=cabbase value="knuddelsk89yc.cab">
</applet></body>
</html>

So nun seit ihr schon fertig

Das sieht dann ca. so aus:

This image has been resized. Click this bar to view the full image. The original image is sized 638x482.