Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Label-Eigenschaften
Autor: PsychoForest
Datum: 05.09.07 15:27
hier ist mal der Code in Kompaktform ... vielleicht weiß jemand warum es so nicht geht oder wo der Fehler ist ... Ihr braucht lediglich eine Form, sonst nix   m.Management Imports System.Math Public Class frm_Main Dim bFirsttime As Boolean Public Sub GenerateAllDrives() If bFirsttime = True Then ' Labels erstmalig erstellen GenerateNewLabels() Else ' Labels anpassen ModifyLabels() End If bFirsttime = False End Sub Private Sub GenerateNewLabels() Dim hDrive As String() = Environment.GetLogicalDrives() Dim ad32 As New ApiDeclaration32 Dim sWQL As String Dim sLW As String Dim iFree As Double Dim iUsed As Double Dim iSum As Double Dim sName As String Dim aObj As ManagementObject Dim iMax As Integer Dim iBorder As Integer Dim iLeftSize As Integer Dim iRightSize As Integer Dim iTop As Integer Dim rect As New Rectangle Dim iOnePercent As Double Dim iCount As Integer ' Größendefinitionen vorbereiten iBorder = 20 iTop = 20 iMax = Me.Width - 2 * iBorder For n As Integer = 0 To hDrive.Length - 1 If ApiDeclaration32.GetDriveType(hDrive(n)) = ApiDeclaration32.DRIVE_FIXED Then sWQL = "SELECT * FROM Win32_LogicalDisk WHERE DeviceID = """ + hDrive(n).Substring(0, 2) + """" Dim aMAS As New ManagementObjectSearcher(sWQL) For Each aObj In aMAS.Get() sLW = aObj.Item("Caption") + "\" sName = aObj.Item("VolumeName") iFree = GetGB(aObj.Item("FreeSpace")) iSum = GetGB(aObj.Item("Size")) iUsed = iSum - iFree iOnePercent = iMax / 100 iLeftSize = (iUsed / iSum * 100) * iOnePercent iRightSize = (iFree / iSum * 100) * iOnePercent iCount = iCount + 1 If Mid(sLW, 1, 1) <> "C" Then Init_FSW(sLW) 'System-Label malen Dim lbl_drive As New Label lbl_drive.Name = "lbl_drive_" + Mid(sLW, 1, 1) lbl_drive.Height = 20 lbl_drive.Left = iBorder lbl_drive.Top = iTop + 5 lbl_drive.TextAlign = ContentAlignment.MiddleLeft lbl_drive.UseMnemonic = True lbl_drive.Text = sLW + " (" + sName + " / " + iSum.ToString + " GB)" lbl_drive.Visible = True Me.Controls.Add(lbl_drive) 'Used-Space Dim lbl_used As New Label lbl_used.Name = "lbl_used_" + Mid(sLW, 1, 1) lbl_used.Top = iTop + 15 lbl_used.Left = iBorder lbl_used.Width = 200 lbl_used.Height = 20 lbl_used.TextAlign = ContentAlignment.MiddleLeft lbl_used.UseMnemonic = True lbl_used.Text = "Used: " + iUsed.ToString + " GB" lbl_used.Visible = True Me.Controls.Add(lbl_used)

Label-Eigenschaften	1.060	PsychoForest	05.09.07 11:02
Re: Label-Eigenschaften	792	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	734	spike24	05.09.07 13:06
Re: Label-Eigenschaften	817	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	845	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	747	PsychoForest	05.09.07 15:27
Re: Label-Eigenschaften - Teil 2	775	PsychoForest	05.09.07 15:28
Re: Label-Eigenschaften - Teil 2	766	Melkor	05.09.07 15:40
Re: Label-Eigenschaften - Teil 2	807	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	802	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