Полноэкранный режим с растягиванием компонентов - Visual Basic .NET

  1. Доброе время суток))) Вопрос в следующим: Мне нужно сделать полноэкранную форму так, что бы размещенный на ней Textbox тоже разместился по всем размерам формы. Достаточно будет понятных объяснений или статей на эту тему. Заранее большое спасибо....


textual

Код:

Private Sub Form17_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        TextBox1.Dock = DockStyle.Fill
    End Sub


Похожие ответы
  1. Всем привет! Столкнулся с проблемой, обмена с FTP (на IIS) с помощью Net.FtpWebRequest в пассивном режиме. При попытке загрузить список каталогов, получить или отправить на фтп данные сообщает об ошибке: 227 Entering Passive Mode (ххх,ххх,ххх,ххх,224,18). Использование свойства UsePassive = true, также не помогает, ошибка повторяется. Если свойство установить в UsePassive = false, сообщит о следующей ошибке: "500 PORT/EPRT (Active Mode/Extended Active Mode) is not supported. Use PASV/EPSV instead of this" Примеры кода перепробовал несколько, в т.ч. и из готовых решений, ошибка одна и таже. Поиск по форуму, да и гуглу особо результата не дал. Да я понимаю, что при пассивном подключении нужно получить порт от сервера, но вот как его получить и подключиться к серверу никак не пойму. Пароли и прочее все верно. Подключение через браузер и тоталкомандер успешные. Вот один из примеров кода на котором я тестировал (значение свойства UsePassive = true, дописывал самостоятельно): Кликните здесь для просмотра всего текста vb.net1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 Public Class FTP     '-------------------------[BroCode]--------------------------     '----------------------------FTP-----------------------------     Private _credentials As System.Net.NetworkCredential     Sub New(ByVal _FTPUser As String, ByVal _FTPPass As String)         setCredentials(_FTPUser, _FTPPass)     End Sub     Public Sub UploadFile(ByVal _FileName As String, ByVal _UploadPath As String)         Dim _FileInfo As New System.IO.FileInfo(_FileName)         Dim _FtpWebRequest As System.Net.FtpWebRequest = CType(System.Net.FtpWebRequest.Create(New Uri(_UploadPath)), System.Net.FtpWebRequest)         _FtpWebRequest.Credentials = _credentials         _FtpWebRequest.KeepAlive = False         _FtpWebRequest.Timeout = 20000         _FtpWebRequest.Method = System.Net.WebRequestMethods.Ftp.UploadFile         _FtpWebRequest.UseBinary = True         _FtpWebRequest.ContentLength = _FileInfo.Length         _FtpWebRequest.UsePassive = True         Dim buffLength As Integer = 2048         Dim buff(buffLength - 1) As Byte         Dim _FileStream As System.IO.FileStream = _FileInfo.OpenRead()         Try             Dim _Stream As System.IO.Stream = _FtpWebRequest.GetRequestStream()             Dim contentLen As Integer = _FileStream.Read(buff, 0, buffLength)             Do While contentLen <> 0                 _Stream.Write(buff, 0, contentLen)                 contentLen = _FileStream.Read(buff, 0, buffLength)             Loop             _Stream.Close()             _Stream.Dispose()             _FileStream.Close()             _FileStream.Dispose()         Catch ex As Exception             MessageBox.Show(ex.Message, "Upload Error: ", MessageBoxButtons.OK, MessageBoxIcon.Error)         End Try     End Sub     Public Sub DownloadFile(ByVal _FileName As String, ByVal _ftpDownloadPath As String)         Try             Dim _request As System.Net.FtpWebRequest = System.Net.WebRequest.Create(_ftpDownloadPath)             _request.KeepAlive = False             _request.Method = System.Net.WebRequestMethods.Ftp.DownloadFile             _request.Credentials = _credentials             Dim _response As System.Net.FtpWebResponse = _request.GetResponse()             Dim responseStream As System.IO.Stream = _response.GetResponseStream()             Dim fs As New System.IO.FileStream(_FileName, System.IO.FileMode.Create)             'responseStream.CopyT(fs)             responseStream.Close()             _response.Close()         Catch ex As Exception             MessageBox.Show(ex.Message, "Download Error: ", MessageBoxButtons.OK, MessageBoxIcon.Error)         End Try     End Sub     Public Function GetDirectory(ByVal _ftpPath As String) As List(Of String)         Dim ret As New List(Of String)         Try             Dim _request As System.Net.FtpWebRequest = System.Net.WebRequest.Create(_ftpPath)             _request.KeepAlive = False             _request.Method = System.Net.WebRequestMethods.Ftp.ListDirectoryDetails             _request.Credentials = _credentials             Dim _response As System.Net.FtpWebResponse = _request.GetResponse()             Dim responseStream As System.IO.Stream = _response.GetResponseStream()             Dim _reader As System.IO.StreamReader = New System.IO.StreamReader(responseStream)             Dim FileData As String = _reader.ReadToEnd             Dim Lines() As String = FileData.Split(New String() {Environment.NewLine}, StringSplitOptions.RemoveEmptyEntries)             For Each l As String In Lines                 ret.Add(l)             Next             _reader.Close()             _response.Close()         Catch ex As Exception             MessageBox.Show(ex.Message, "Directory Fetch Error: ", MessageBoxButtons.OK, MessageBoxIcon.Error)         End Try         Return ret     End Function       Private Sub setCredentials(ByVal _FTPUser As String, ByVal _FTPPass As String)         _credentials = New System.Net.NetworkCredential(_FTPUser, _FTPPass)     End Sub End ClassИспользование:vb.net1 2 3 4 5 6 7 8 9 10 11   Dim ftp As New FTP("server", "pass")           ftp.UploadFile("localfile", "hostfile")           ftp.DownloadFile("localfile", "hostfile")           Dim directory As List(Of String) = ftp.GetDirectory("ftp://hostdir/")         ListBox1.Items.Clear()         For Each item As String In directory             ListBox1.Items.Add(item)         Next Пожалуйста, помоги разобраться и как осуществить подключение к серверу в пассивном режиме, может даже пример кода у кого завалялся. Заранее спасибо!

  1. Доброго, гуглил вопрос и нашел массу не работающих решений - не получается отправить нажатие Ctrl+F9 программе работающего в фоном режиме через SendMessage на 64 битной системе сам кодvb.net1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 Imports prog1 Imports System Imports System.Diagnostics Imports System.Runtime.InteropServices   Module Module1 _     Public Function SendMessage(ByVal hWnd As IntPtr, ByVal Msg As UInteger, ByVal wParam As IntPtr, ByVal lParam As IntPtr) As ntPtr     End Function       Public Const WM_KEYDOWN = &H100     Public Const WM_KEYUP = &H101     Public Const VK_CONTROL = &H11     Public Const VK_F9 = &H78       Dim app1 As prog1.Application Sub Main()         While True         Dim mcommand As String = Console.ReadLine           If mcommand = "Recalculate" Then         app1 = New prog1.Application         app1.Visible = False           ' пытаюсь получить хендл так и приводит к ошибке         ' handle = app1.Handle         ' а так работает но к ошибке может привести если запущено несколько программ(но всем отправлять Ctrl + F9 не нужно)          Dim p As Process() = Process.GetProcessesByName("prog1")          Dim title As String = p(0).MainWindowTitle          Dim handle As IntPtr = p(0).MainWindowHandle          ' отправка нажатия Ctrl + F9 - не работает        SendMessage(handle, WM_KEYDOWN, VK_CONTROL, 0)        SendMessage(handle, WM_KEYDOWN, VK_F9, 0)        SendMessage(handle, WM_KEYUP, VK_CONTROL, 0)        SendMessage(handle, WM_KEYUP, VK_F9, 0)        ' не работает и PostMessage           End If         End While     End Sub   End Moduleзаранее спс!

  1. Имею код, не получается написать код для игры игрок-игрок, игрок-компьютер работает прекрасно помогите написать код, особенно обращение к другому игроку в строчке Sub Игрок_1(ByVal OKNO As Object)vb.net1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 214 215 216 217 218 219 220 221 222 223 224 225 226 227 228 229 230 231 232 233 234 235 236 237 238 239 240 241 242 243 244 245 246 247 248 249 250 251 252 253 254 255 256 257 258 259 260 261 262 263 264 265 266 267 268 269 270 271 272 273 274 275 276 277 278 279 280 281 282 283 284 285 286 287 288 289 290 291 292 293 294 295 296 297 298 299 300 301 302 303 304 305 306 307 308 309 310 311 312 313 314 315 316 Public Class Form1     Dim Поле(3, 4) As Label     Dim Ход As Short = 0       Private Sub ИграСЧеловекомToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ИграСЧеловекомToolStripMenuItem.Click         For j = 2 To 4             For i = 1 To 3                 'создаем ячейки                 Поле(i, j) = New Label                 Me.Controls.Add(Поле(i, j))                 With Поле(i, j)                     .TextAlign = ContentAlignment.MiddleCenter                     .BorderStyle = BorderStyle.FixedSingle                     .Width = 100                     .Height = 100                     .Left = (100 * i) - 100                     .Top = (100 * j) - 100                     .Text = ""                     .Font = New Font("arial", 42)                     .ForeColor = Color.Black                     .BackColor = Color.White                     AddHandler Поле(i, j).Click, AddressOf Клик_с_пк                 End With             Next         Next       End Sub       Sub Игрок_1(ByVal OKNO As Object)         If OKNO.text = "" Then             OKNO.text = "x"             Ход = Ход + 1             Игрок_2(OKNO)             proverka()         End If     End Sub       Sub Игрок_2(ByVal OKNO As Object)         If OKNO.text = "" Then             OKNO.text = "0"             Ход = Ход + 1             Игрок_1(OKNO)             proverka()         End If     End Sub       Private Sub ИграСКомпьютеромToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ИграСКомпьютеромToolStripMenuItem.Click         For j = 2 To 4             For i = 1 To 3                 'создаем ячейки                 Поле(i, j) = New Label                 Me.Controls.Add(Поле(i, j))                 With Поле(i, j)                     .TextAlign = ContentAlignment.MiddleCenter                     .BorderStyle = BorderStyle.FixedSingle                     .Width = 100                     .Height = 100                     .Left = (100 * i) - 100                     .Top = (100 * j) - 100                     .Text = ""                     .Font = New Font("arial", 42)                     .ForeColor = Color.Black                     .BackColor = Color.White                     AddHandler Поле(i, j).Click, AddressOf Клик_с_пк                 End With             Next         Next       End Sub       Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load       End Sub         ' процедура нажатия на ячейки при игре с компьютером     Sub Клик_с_пк(ByVal OKNO As Object, ByVal E As EventArgs)         If OKNO.text = "" Then             OKNO.text = "x"             Ход = Ход + 1             comp_hod3()             proverka()         End If     End Sub       'процедура произвольного хода компьютера     'компьютер ставит нолик в случайно попавшейся пустой ячейке     Sub comp_hod1()         If Ход = 5 Then Exit Sub 'после пятого отключаем эту прцедуру так как ей некуда будет поставить нолик         Dim p As Short         Randomize()         p = 8 * Rnd()         If p = 0 And Поле(1, 2).Text = "" Then             Поле(1, 2).Text = "0"         ElseIf p = 2 And Поле(1, 3).Text = "" Then             Поле(1, 3).Text = "0"         ElseIf p = 2 And Поле(1, 4).Text = "" Then             Поле(1, 4).Text = "0"         ElseIf p = 3 And Поле(2, 2).Text = "" Then             Поле(2, 2).Text = "0"         ElseIf p = 4 And Поле(2, 3).Text = "" Then             Поле(2, 3).Text = "0"         ElseIf p = 5 And Поле(2, 4).Text = "" Then             Поле(2, 4).Text = "0"         ElseIf p = 6 And Поле(3, 2).Text = "" Then             Поле(3, 2).Text = "0"         ElseIf p = 7 And Поле(3, 3).Text = "" Then             Поле(3, 3).Text = "0"         ElseIf p = 8 And Поле(3, 4).Text = "" Then             Поле(3, 4).Text = "0"         Else             comp_hod1() 'если же компьютер натыкаеться на занятую уже ячейку то процедура возрашаеться в начало и так до тех пор пока не найдет пустую ячейку         End If       End Sub       'обдуманный ход компьютера     ' в данной процедуре компьютер пытаеться помешать выйграть сопернику     ' то есть препятсвует завершению третьего звена иксов по линии или диаганали заполняя третее звено ноликом     Sub comp_hod2()         If Поле(1, 2).Text = "x" And Поле(1, 3).Text = "x" And Поле(1, 4).Text = "" Then             Поле(1, 4).Text = "0"         ElseIf Поле(2, 2).Text = "x" And Поле(2, 3).Text = "x" And Поле(2, 4).Text = "" Then             Поле(2, 4).Text = "0"         ElseIf Поле(3, 2).Text = "x" And Поле(3, 3).Text = "x" And Поле(3, 4).Text = "" Then             Поле(3, 3).Text = "0"         ElseIf Поле(1, 3).Text = "x" And Поле(1, 4).Text = "x" And Поле(1, 2).Text = "" Then             Поле(1, 2).Text = "0"         ElseIf Поле(2, 3).Text = "x" And Поле(2, 4).Text = "x" And Поле(2, 2).Text = "" Then             Поле(2, 2).Text = "0"         ElseIf Поле(3, 3).Text = "x" And Поле(3, 4).Text = "x" And Поле(3, 2).Text = "" Then             Поле(3, 2).Text = "0"         ElseIf Поле(1, 2).Text = "x" And Поле(2, 2).Text = "x" And Поле(3, 2).Text = "" Then             Поле(3, 2).Text = "0"         ElseIf Поле(1, 3).Text = "x" And Поле(2, 3).Text = "x" And Поле(3, 3).Text = "" Then             Поле(3, 3).Text = "0"         ElseIf Поле(1, 4).Text = "x" And Поле(2, 4).Text = "x" And Поле(3, 4).Text = "" Then             Поле(3, 4).Text = "0"         ElseIf Поле(2, 2).Text = "x" And Поле(3, 2).Text = "x" And Поле(1, 2).Text = "" Then             Поле(1, 2).Text = "0"         ElseIf Поле(2, 3).Text = "x" And Поле(3, 3).Text = "x" And Поле(1, 3).Text = "" Then             Поле(1, 3).Text = "0"         ElseIf Поле(2, 4).Text = "x" And Поле(3, 4).Text = "x" And Поле(1, 4).Text = "" Then             Поле(1, 4).Text = "0"         ElseIf Поле(1, 2).Text = "x" And Поле(2, 3).Text = "x" And Поле(3, 4).Text = "" Then             Поле(3, 4).Text = "0"         ElseIf Поле(2, 3).Text = "x" And Поле(3, 4).Text = "x" And Поле(1, 2).Text = "" Then             Поле(1, 2).Text = "0"         ElseIf Поле(3, 2).Text = "x" And Поле(2, 3).Text = "x" And Поле(1, 4).Text = "" Then             Поле(1, 4).Text = "0"         ElseIf Поле(2, 3).Text = "x" And Поле(1, 4).Text = "x" And Поле(3, 2).Text = "" Then             Поле(3, 2).Text = "0"         ElseIf Поле(1, 2).Text = "x" And Поле(3, 2).Text = "x" And Поле(2, 2).Text = "" Then             Поле(2, 2).Text = "0"         ElseIf Поле(1, 3).Text = "x" And Поле(3, 3).Text = "x" And Поле(2, 3).Text = "" Then             Поле(2, 3).Text = "0"         ElseIf Поле(1, 4).Text = "x" And Поле(3, 4).Text = "x" And Поле(2, 4).Text = "" Then             Поле(2, 4).Text = "0"         ElseIf Поле(1, 2).Text = "x" And Поле(1, 4).Text = "x" And Поле(1, 3).Text = "" Then             Поле(1, 3).Text = "0"         ElseIf Поле(2, 2).Text = "x" And Поле(2, 4).Text = "x" And Поле(2, 3).Text = "" Then             Поле(2, 3).Text = "0"         ElseIf Поле(3, 2).Text = "x" And Поле(3, 4).Text = "x" And Поле(3, 3).Text = "" Then             Поле(3, 3).Text = "0"         ElseIf Поле(3, 2).Text = "x" And Поле(1, 4).Text = "x" And Поле(2, 3).Text = "" Then             Поле(2, 3).Text = "0"         ElseIf Поле(1, 2).Text = "x" And Поле(3, 4).Text = "x" And Поле(2, 3).Text = "" Then             Поле(2, 3).Text = "0"         Else             comp_hod1() 'если ни одно из вышестояших условий компьютер не обнаруживает то переходит к первой процедуре         End If     End Sub     'Обдуманный ход компьютера где компьютер пытаеться выйграть при первом поапвшемся случаи     'т.е компьютер завершает линию нулей в ряду или по диогонали обнаружив две уже занятые нулями ячейки     Sub comp_hod3()         If Поле(1, 2).Text = "0" And Поле(1, 3).Text = "0" And Поле(1, 4).Text = "" Then             Поле(1, 4).Text = "0"         ElseIf Поле(2, 2).Text = "0" And Поле(2, 3).Text = "0" And Поле(2, 4).Text = "" Then             Поле(2, 4).Text = "0"         ElseIf Поле(3, 2).Text = "0" And Поле(3, 3).Text = "0" And Поле(3, 4).Text = "" Then             Поле(3, 4).Text = "0"         ElseIf Поле(1, 3).Text = "0" And Поле(1, 4).Text = "0" And Поле(1, 2).Text = "" Then             Поле(1, 2).Text = "0"         ElseIf Поле(2, 3).Text = "0" And Поле(2, 4).Text = "0" And Поле(2, 2).Text = "" Then             Поле(2, 2).Text = "0"         ElseIf Поле(3, 3).Text = "0" And Поле(3, 4).Text = "0" And Поле(3, 2).Text = "" Then             Поле(3, 2).Text = "0"         ElseIf Поле(1, 2).Text = "0" And Поле(2, 2).Text = "0" And Поле(3, 2).Text = "" Then             Поле(3, 2).Text = "0"         ElseIf Поле(1, 3).Text = "0" And Поле(2, 3).Text = "0" And Поле(3, 3).Text = "" Then             Поле(3, 3).Text = "0"         ElseIf Поле(1, 4).Text = "0" And Поле(2, 4).Text = "0" And Поле(3, 4).Text = "" Then             Поле(3, 4).Text = "0"         ElseIf Поле(2, 2).Text = "0" And Поле(3, 2).Text = "0" And Поле(1, 2).Text = "" Then             Поле(1, 2).Text = "0"         ElseIf Поле(2, 3).Text = "0" And Поле(3, 3).Text = "0" And Поле(1, 3).Text = "" Then             Поле(1, 3).Text = "0"         ElseIf Поле(2, 4).Text = "0" And Поле(3, 4).Text = "0" And Поле(1, 4).Text = "" Then             Поле(1, 4).Text = "0"         ElseIf Поле(1, 2).Text = "0" And Поле(2, 3).Text = "0" And Поле(3, 4).Text = "" Then             Поле(3, 4).Text = "0"         ElseIf Поле(2, 3).Text = "0" And Поле(3, 4).Text = "0" And Поле(1, 2).Text = "" Then             Поле(1, 2).Text = "0"         ElseIf Поле(3, 2).Text = "0" And Поле(2, 3).Text = "0" And Поле(1, 4).Text = "" Then             Поле(1, 4).Text = "0"         ElseIf Поле(2, 3).Text = "0" And Поле(1, 4).Text = "0" And Поле(3, 2).Text = "" Then             Поле(3, 2).Text = "0"         ElseIf Поле(1, 2).Text = "0" And Поле(3, 2).Text = "0" And Поле(2, 2).Text = "" Then             Поле(2, 2).Text = "0"         ElseIf Поле(1, 3).Text = "0" And Поле(3, 3).Text = "0" And Поле(2, 3).Text = "" Then             Поле(2, 3).Text = "0"         ElseIf Поле(1, 4).Text = "0" And Поле(3, 4).Text = "0" And Поле(2, 4).Text = "" Then             Поле(2, 4).Text = "0"         ElseIf Поле(1, 2).Text = "0" And Поле(1, 4).Text = "0" And Поле(1, 3).Text = "" Then             Поле(1, 3).Text = "0"         ElseIf Поле(2, 2).Text = "0" And Поле(2, 4).Text = "0" And Поле(2, 3).Text = "" Then             Поле(2, 3).Text = "0"         ElseIf Поле(3, 2).Text = "0" And Поле(3, 4).Text = "0" And Поле(3, 3).Text = "" Then             Поле(3, 3).Text = "0"         ElseIf Поле(3, 2).Text = "0" And Поле(1, 3).Text = "0" And Поле(2, 3).Text = "" Then             Поле(2, 3).Text = "0"         ElseIf Поле(1, 2).Text = "0" And Поле(3, 4).Text = "0" And Поле(2, 4).Text = "" Then             Поле(2, 3).Text = "0"         Else             comp_hod2() 'если не обнаруживает не одного выше стояшего сочитания то переходит к второй процедуре         End If     End Sub       Sub proverka()         'процедура которая будет проверять кто выграл, кто проиграл         If Поле(1, 2).Text = "x" And Поле(1, 3).Text = "x" And Поле(1, 4).Text = "x" Then             Победа()         ElseIf Поле(2, 2).Text = "x" And Поле(2, 3).Text = "x" And Поле(2, 4).Text = "x" Then             Победа()         ElseIf Поле(3, 2).Text = "x" And Поле(3, 3).Text = "x" And Поле(3, 4).Text = "x" Then             Победа()         ElseIf Поле(1, 2).Text = "x" And Поле(2, 2).Text = "x" And Поле(3, 2).Text = "x" Then             Победа()         ElseIf Поле(1, 3).Text = "x" And Поле(2, 3).Text = "x" And Поле(3, 3).Text = "x" Then             Победа()         ElseIf Поле(1, 4).Text = "x" And Поле(2, 4).Text = "x" And Поле(3, 4).Text = "x" Then             Победа()         ElseIf Поле(3, 2).Text = "x" And Поле(2, 3).Text = "x" And Поле(1, 4).Text = "x" Then             Победа()         ElseIf Поле(1, 2).Text = "x" And Поле(2, 3).Text = "x" And Поле(3, 4).Text = "x" Then             Победа()             '----------------------------------------------------------------------------------         ElseIf Поле(1, 2).Text = "0" And Поле(1, 3).Text = "0" And Поле(1, 4).Text = "0" Then             Поражение()         ElseIf Поле(2, 2).Text = "0" And Поле(2, 3).Text = "0" And Поле(2, 4).Text = "0" Then             Поражение()         ElseIf Поле(3, 2).Text = "0" And Поле(3, 3).Text = "0" And Поле(3, 4).Text = "0" Then             Поражение()         ElseIf Поле(1, 2).Text = "0" And Поле(2, 2).Text = "0" And Поле(3, 2).Text = "0" Then             Поражение()         ElseIf Поле(1, 3).Text = "0" And Поле(2, 3).Text = "0" And Поле(3, 3).Text = "0" Then             Поражение()         ElseIf Поле(1, 4).Text = "0" And Поле(2, 4).Text = "0" And Поле(3, 4).Text = "0" Then             Поражение()         ElseIf Поле(3, 2).Text = "0" And Поле(2, 3).Text = "0" And Поле(1, 4).Text = "0" Then             Поражение()         ElseIf Поле(1, 2).Text = "0" And Поле(2, 3).Text = "0" And Поле(3, 4).Text = "0" Then             Поражение()         Else             If Ход = 5 Then Ничья()         End If     End Sub     ' очистка поля     Sub Очистка()         For j = 2 To 4             For i = 1 To 3                 Поле(i, j).Text = ""             Next         Next         Ход = 0     End Sub     ' сообшение о ничье     Sub Ничья()         MsgBox("Ничья!")         If MsgBoxResult.Yes Then             For j = 2 To 4                 For i = 1 To 3                     Поле(i, j).Text = ""                 Next             Next             Ход = 0         End If     End Sub     ' сообшение о выигрыше     Sub Победа()         MsgBox("Вы выйграли!")         If MsgBoxResult.Yes Then             For j = 2 To 4                 For i = 1 To 3                     Поле(i, j).Text = ""                 Next             Next             Ход = 0         End If         Очистка()     End Sub     ' сообшение о проигрише     Sub Поражение()         MsgBox("Вы проиграли!")         If MsgBoxResult.Yes Then             For j = 2 To 4                 For i = 1 To 3                     Поле(i, j).Text = ""                 Next             Next             Ход = 0         End If     End Sub     End Class

  1. Добрый день, Есть программа написанная на питоне, запускается через командную строку. По определённым условиям программа в командной строке выводит запрос для выбора решения и для продолжения работы (3 варианта ответа). Написан интерфейс на .net, который запускает эту программу в бач режиме. Каким образом можно в .net отловить запрос от этой программы и как передать ответ обратно этой программе? Спасибо.

  1. Здравствуйте! Парни, прошу подсказать, как отправить ПК в сон на Windows 7 ? Прошу не путать "сон" и "гибернацию" В интернете есть способы выключения, перезагрузки, гибернации, а вот сна не нашел

  1. Добрый день уважаемые! Подскажите, можно ли отследить выход компа из спячки. Если можно, то как. Хотелось бы пример. За ранее благодарю.

  1. Исходник для регулировки яркости в нем есть 3 кнопки две регулируют яркость больше, меньше а другая при каждом нажатии сначала уменьшает до 0 потом повышает до 100% помогите дописать исходник так чтобы при достижении допустим 20:00 программа сама снижала яркость а при 9:00 утра яркость монитора снова возрастала до 100%?

  1. Нужно написать программу, воспроизводящую звук при нажатии на любую клавишу. Только нужно что бы программа работала в фоновом режиме, т.е. программа не видна, либо свернута, а при работе с документом, в интернете или где бы то ни было, воспроизводились звуки по нажатию на клавиши. Пожалуйста не кидайте ссылки на похожие темы. Кажется это через перехват нажатий на клавиши нужно делать, приведите пример с комментариями.

  1. Привет. Есть БД Access, подключение к ней устанавливается программно. Строка подключения такая:vb.net1 Dim ConString As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Application.StartupPath & "\Data\DataBase.mdb"Задача сделать так, чтобы пользователь мог изменить эту строку (вернее только сам путь до базы). Я предполагал хранить этот путь в параметрах приложения (My.Settings), там есть тип переменной String, но с ним выражение Application.StartupPath не работает. Напрашивается присвоить этой переменной "абстрактный тип" из System.IO.Path - но тоже не канает. Пишет "Абстрактные типы не поддерживаются". Кто подскажет как такие настройки сделать? Как нормальные люди то делают форму Настройки то? P.S. Заранее благодарен.