T A J P R O G Якшанбе, 15.09.2019, 16:56
Приветствую Вас Гость | RSS
Меню сайта

Наш опрос
Ба сомонаи мо баҳо диҳед!
Ҷавобҳо ҳамагӣ: 586

Статистика

Онлайн ҳамагӣ: 1
Меҳмон: 1
Истифодабаранда: 0


Код Visual Basic .NET


Dim процессор = My.Computer.Registry.LocalMachine.OpenSubKey _
                        ("HARDWARE\\DESCRIPTION\\SYSTEM\\Ce
		
		... 
		
			Давомаш »
		
Диданд: 262 | Илова намуд: aplove | Сана: 30.05.2014 | Эзоҳот (5)

 With My.Computer.Screen
            Dim x$ = .Bounds.Size.Width
            Dim y$ = .Bounds.Size.Height
            Dim bit% = .BitsPerPixel
            MsgBox(x & " x " & y & " (" & bit & " бит" & ")")
        End With
Диданд: 206 | Илова намуд: aplove | Сана: 30.05.2014 | Эзоҳот (0)

 With My.Computer.Info
            MsgBox(.OSFullName & " " & .OSVersion)
        End With
Диданд: 260 | Илова намуд: aplove | Сана: 30.05.2014 | Эзоҳот (1)

Код
ListBox1.Items.Clear() 
ListBox1.Items.AddRange(IO.File.ReadAllLines("C:\1.txt", System.Text.Encoding.Default))
Диданд: 170 | Илова намуд: aplove | Сана: 21.05.2014 | Эзоҳот (2)

Код VB.NET


 Dim i As Integer
        Dim w = New IO.StreamWriter("c:\1.txt")
        For i = 0 To ListBox1.Items.Count - 1
            w.WriteLine(ListBox1.Items.Item(i))
        Next
w.Close()

Диданд: 110 | Илова намуд: aplove | Сана: 21.05.2014 | Эзоҳот (0)

 Dim DI As New IO.DriveInfo("C:\")
        MsgBox(DI.Name)
Диданд: 141 | Илова намуд: aplove | Сана: 15.05.2014 | Эзоҳот (0)

Dim DI As New IO.DriveInfo("C:\")
        MsgBox(DI.DriveType)
Диданд: 154 | Илова намуд: aplove | Сана: 15.05.2014 | Эзоҳот (1)

Dim DI As New IO.DriveInfo("C:\")
        MsgBox(DI.DriveFormat)
Диданд: 150 | Илова намуд: aplove | Сана: 15.05.2014 | Эзоҳот (0)

 Dim DI As New IO.DriveInfo("C:\")
        MsgBox(DI.AvailableFreeSpace / 1024 \ 
		... 
		
			Давомаш »
		
Диданд: 155 | Илова намуд: aplove | Сана: 15.05.2014 | Эзоҳот (0)

 Dim D() As IO.DriveInfo = IO.DriveInfo.GetDrives
        For Each DI As IO.DriveInfo In D
            
		... 
		
			Давомаш »
		
Диданд: 118 | Илова намуд: aplove | Сана: 15.05.2014 | Эзоҳот (0)

« 1 2 3 4 5 6 »
Реклама

Поиск

Календарь
«  Сентябр 2019  »
ДСЧПҶШЯ
      1
2345678
9101112131415
16171819202122
23242526272829
30

Архив записей

Друзья сайта

Copyright © Умаров Алибек 2019,. Все права защищены.