PDA

View Full Version : سوال: لیست کردن دارایو ها



papa_toop
یک شنبه 26 خرداد 1387, 01:37 صبح
سلام به دوستان

من می خوام تمام دارایوهای سیستم به جز سی دی رام رو هر یک رو در یه تکس باکس نشون بدم می شه یه دستی بزنیید تا این قراضه روشن بشه

Dariuosh
یک شنبه 26 خرداد 1387, 08:21 صبح
For Each Drive As System.IO.DriveInfo In System.IO.DriveInfo.GetDrives
MsgBox(Drive.Name & vbCrLf & Drive.DriveType.ToString)
Next

papa_toop
یک شنبه 26 خرداد 1387, 17:59 عصر
دوست عزیز از شما ممنون ولی من این کد رو می دونستم اما توی نشون دادن هر یک توی یه تکس باکس مشکل دارم.

papa_toop
دوشنبه 27 خرداد 1387, 12:59 عصر
در واقع من می خوام یه آنتی وارم بنویسم برای همین احتیاج به نام هارد درایوها دارم ولی با روش قبلی که دوستمونم گفت من نمی تونم کار کنم یعنی بلد نیستم

amirsajjadi
دوشنبه 27 خرداد 1387, 14:19 عصر
آیا منظورتون همینه :


For Each Drive As System.IO.DriveInfo In System.IO.DriveInfo.GetDrives
If Drive.DriveType <> IO.DriveType.CDRom Then
Dim t As New TextBox
Dim y As Integer
y = y + t.Height * 2
t.Location = New Point(10, y)
t.Text = Drive.Name
Me.Controls.Add(t)
t = Nothing
End If
Next

papa_toop
جمعه 31 خرداد 1387, 23:49 عصر
دستتون درد نکنه ولی این تکس باکس ها توی حافظه با چه اسمی بالا میان تا من از اطلاعات درونشون استفاده کنم

Dariuosh
شنبه 01 تیر 1387, 02:23 صبح
دستتون درد نکنه ولی این تکس باکس ها توی حافظه با چه اسمی بالا میان تا من از اطلاعات درونشون استفاده کنم
تو اون کدي آقاي سجادي زحمت کشيدن و گذاشتن چون TextBoxها هر بار New ميشن اسمي ندارن ، پس شما خودتون بايد اسمي براشون در نظر بگيريد
کد اينجوريش کني بترتيب اسمشون TextBox 1 2 3 ميشه



Dim Count As Int16 = 1
For Each Drive As System.IO.DriveInfo In System.IO.DriveInfo.GetDrives
If Drive.DriveType <> IO.DriveType.CDRom Then
Dim t As New TextBox
t.Name = "TextBox" & Count
Dim y As Integer
y = y + t.Height * 2
t.Location = New Point(10, y)
t.Text = Drive.Name
Me.Controls.Add(t)
t = Nothing
End If
Count += 1
Next

NewFoxStudent
شنبه 01 تیر 1387, 09:47 صبح
شما میتونید از تابع API
GetDriveString
استفاده کنید

NewFoxStudent
شنبه 01 تیر 1387, 10:33 صبح
Private Declare Function GetLogicalDriveStrings Lib "kernel32.dll" Alias "GetLogicalDriveStringsA" (ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long