Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Label-Eigenschaften - Teil 2
Autor: PsychoForest
Datum: 05.09.07 15:28
TEIL 2: 'Free-Space Dim lbl_free As New Label lbl_free.Name = "lbl_free_" + Mid(sLW, 1, 1) lbl_free.Top = iTop + 15 lbl_free.Width = 200 lbl_free.Left = iMax - lbl_free.Width + iBorder lbl_free.Height = 20 lbl_free.TextAlign = ContentAlignment.MiddleRight lbl_free.UseMnemonic = True lbl_free.Text = "Available: " + iFree.ToString + " GB" lbl_free.Visible = True Me.Controls.Add(lbl_free) 'rote Box malen Dim lbl_red As New Label lbl_red.Name = "lbl_red_" + Mid(sLW, 1, 1) lbl_red.BackColor = Color.Red lbl_red.BorderStyle = BorderStyle.FixedSingle lbl_red.Left = iBorder lbl_red.Top = iTop + 35 lbl_red.Width = iLeftSize lbl_red.Height = 20 lbl_red.Visible = True Me.Controls.Add(lbl_red) 'grüne Box malen Dim lbl_green As New Label lbl_green.Name = "lbl_green_" + Mid(sLW, 1, 1) lbl_green.BackColor = Color.Green lbl_green.BorderStyle = BorderStyle.FixedSingle lbl_green.Left = iBorder + iLeftSize - 1 lbl_green.Top = iTop + 35 lbl_green.Width = iRightSize lbl_green.Height = 20 lbl_green.Visible = True Me.Controls.Add(lbl_green) iTop = iTop + 70 ' Grösse anpassen und zentrieren Me.Height = iTop + 30 Me.Top = (Screen.PrimaryScreen.Bounds.Height - Me.Height) / 2 End If Next End If Next End Sub Private Sub ModifyLabels() Dim ctrl As Control For Each ctrl In Me.Controls Debug.WriteLine(ctrl.Name) ctrl.Text = "irgendwas neues" Next End Sub Private Function GetMB(ByVal size As Long) As Double Dim res As Double res = Round(Size / 1024 / 1024, 2) res = Format(res, "#0.00") Return res End Function Private Function GetGB(ByVal size As Long) As Double Dim res As Double res = Round(size / 1024 / 1024 / 1024, 2) res = Format(res, "#0.00") Return res End Function Private Sub frm_Main_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load bFirsttime = True GenerateAllDrives() End Sub Public Class ApiDeclaration32 Public Declare Auto Function GetDriveType Lib "kernel32.dll" (ByVal lpRootPathName As String) As Integer Public Shared DRIVE_FIXED As Integer = 3 Public Shared DRIVE_CDROM As Integer = 5 End Class

Label-Eigenschaften	1.060	PsychoForest	05.09.07 11:02
Re: Label-Eigenschaften	791	spike24	05.09.07 11:04
Re: Label-Eigenschaften	793	PsychoForest	05.09.07 11:39
Re: Label-Eigenschaften	779	Melkor	05.09.07 11:57
Re: Label-Eigenschaften	726	PsychoForest	05.09.07 12:57
Re: Label-Eigenschaften	733	spike24	05.09.07 13:06
Re: Label-Eigenschaften	816	PsychoForest	05.09.07 13:14
Re: Label-Eigenschaften	707	Melkor	05.09.07 13:23
Re: Label-Eigenschaften	726	PsychoForest	05.09.07 13:26
Re: Label-Eigenschaften	737	spike24	05.09.07 13:49
Re: Label-Eigenschaften	844	PsychoForest	05.09.07 14:03
Re: Label-Eigenschaften	870	Melkor	05.09.07 14:17
Re: Label-Eigenschaften	712	PsychoForest	05.09.07 14:55
Re: Label-Eigenschaften	746	PsychoForest	05.09.07 15:27
Re: Label-Eigenschaften - Teil 2	775	PsychoForest	05.09.07 15:28
Re: Label-Eigenschaften - Teil 2	765	Melkor	05.09.07 15:40
Re: Label-Eigenschaften - Teil 2	806	Melkor	05.09.07 18:25
Re: Label-Eigenschaften - Teil 2	689	PsychoForest	06.09.07 07:39
Re: Label-Eigenschaften - Teil 2	832	Melkor	06.09.07 12:44
Re: Label-Eigenschaften - Teil 2	762	PsychoForest	06.09.07 14:27
Re: Label-Eigenschaften - Teil 2	860	Melkor	06.09.07 23:46
Re: Label-Eigenschaften - Teil 2	801	PsychoForest	07.09.07 07:45

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen