Главная страница Случайная страница
Разделы сайта
АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторикаСоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника
⚡️ Для новых пользователей первый месяц бесплатно. А далее 290 руб/мес, это в 3 раза дешевле аналогов. За эту цену доступен весь функционал: напоминание о визитах, чаевые, предоплаты, общение с клиентами, переносы записей и так далее.
✅ Уйма гибких настроек, которые помогут вам зарабатывать больше и забыть про чувство «что-то мне нужно было сделать».
Сомневаетесь? нажмите на текст, запустите чат-бота и убедитесь во всем сами!
Заливка окна рисунком в VB
|
|
Папка в VB
Dim fso As New FileSystemObject, f As Folder ' Создаем объект FSO и объявляем переменную f для работы с папками Private Sub Command1_Click()fso.CreateFolder (" c: 111111") ' Для создания папки есть метод CreateFolder End Sub Private Sub Command2_Click() ' Способ 1 Set f = fso.GetFolder(" c: 111111")f.Delete True ' Способ 2'fso.DeleteFolder (" c: 111111") End Sub Private Sub Command3_Click() ' Способ 1 Set f = fso.GetFolder(" c: 111111")f.Copy " c: games" ' Способ 2'fso.CopyFolder " c: 111111", " c: games" End Sub Private Sub Command4_Click() ' Способ 1 Set f = fso.GetFolder(" c: 111111")f.Move " c: games" ' только не забывай в самом конце папки ставить " ", а то при перемещении и копировании не сработает' Способ 2'fso.MoveFolder " c: 111111", " c: games" End Sub Private Sub Form_Load() ' Узнаем есть папка 111111, если нет то сообщаем(метод возвращает False), а если есть то выводим все данные о ней(метод возвращает True) If fso.FolderExists(" c: 111111") = True Then Set f = fso.GetFolder(" c: 111111") ' Дата создания Label1.Caption = " Файл создан: " & f.DateCreated ' Дата изменения Label2.Caption = " Файл изменен: " & f.DateLastModified ' Дата открытия Label3.Caption = " Файл открыт: " & f.DateLastAccessed ' Имя папки родителя Label4.Caption = " Папка родич(т.е. та папка в которой эта папка находится): " & f.ParentFolder ' Путь к папке Label5.Caption = " Путь: " & f.Path ' Размер Label6.Caption = " Размер: " & f.Size / 1024 ' здесь я написал / 1024, чтоб в килибайты перевести Else MsgBox " Такой папки не существует", 16, " " End IfEnd Sub
Клиент Сервер vb
Ну для начала я расскажу для чего это вообще нужно. Вся эта фигня нужна для того чтоб устанавливать связь между двумя разными приложениями (Клиентом & Сервером), например мы будем делать проект, в котором будет 2 программы (Клиент & Сервер), изменив текст в Сервере он, изменится и в Клиенте (Ты наверное думаешь: " Нахрен мне это надо? " - это тебе надо! Когда мы будем делать Chat(через пару шагов (Пока я взял чей - то перевод, но в следующих обновлениях я постараюсь сам написать о создании Chat`a, да и вообще о Winsock))).Для начала создадим Сервер, он будет посылать сообщения Клиенту.
Создаем Сервер
Войди в VB(Standart EXE), на форму кинь текстовое поле. Переименуй проект в Server(для этого войти в Project/Project1 Properties... и в открывшемся окне, в поле Project Name - введи любое имя. (подробнее читай в 26 Шаге), форму переименуй в Servak(Name), свойство LinkMode = 1 - Source, LinkTopic = Client - это имя формы клиента.
Сервак готов!!! Теперь сделаем Клиента.
Создаем Клиент
Войди в VB(Standart EXE), на форму кинь текстовое поле. Форму переименуй в Client, и введи код:
VB массивы
Dim Mass(10) As String ' Объявляем массив с индексом 10, для хранения символов Private Sub Form_Load() ' Заполняем массив: Mass(0) = " Хей" ' только надо помнить, что самый первый индекс равен 0 Mass(1) = " Бляха" Mass(2) = "..." '... Mass(10) = " The End(т.е. - упор)" ' И так до упора End Sub
Игры visual basic. Пятнашки
Код:
'Объявляем переменные Dim L As Long, T As Long, K As Long Private Sub Command1_Click(Index As Integer)L = Command1(Index).Left ' Записываем в переменную значение свойства Left нажатой кнопки(например, если нажата кнопка с индексом 6, то L = Command1(6).Left) T = Command1(Index).Top ' В переменную записываем значение свойства Top нажатой кнопки' Двигаем влево: If Shape1.Left - 720 = L And Shape1.Top = T Then ' Если нажатая кнопка находиться напротив Shapa то: ' Меняем кнопку и Shape местами K = Command1(Index).LeftCommand1(Index).Left = Shape1.LeftShape1.Left = K End If 'Двигаем вправо If Shape1.Left + 720 = L And Shape1.Top = T Then K = Command1(Index).LeftCommand1(Index).Left = Shape1.LeftShape1.Left = K End If ' Двигаем в вверх: If Shape1.Top - 600 = T And Shape1.Left = L Then K = Command1(Index).TopCommand1(Index).Top = Shape1.TopShape1.Top = K End If ' Двигаем вниз If Shape1.Top + 600 = T And Shape1.Left = L Then K = Command1(Index).TopCommand1(Index).Top = Shape1.TopShape1.Top = K End If ' Ну, это если все кнопки правильно выстроены(от 1 до 15, и последняя Shape) то поздравляем победителя' только если на форме кнопки немного сдвинуты, то этот код работать не будет. ' Символ " _" нужен для переноса строки If Command1(0).Left = 480 And Command1(1).Left = 1200 And Command1(2).Left = 1920 _ And Command1(3).Left = 2640 And Command1(4).Left = 480 And Command1(5).Left = 1200 _ And Command1(6).Left = 1920 And Command1(7).Left = 2640 And Command1(8).Left = 480 _ And Command1(9).Left = 1200 And Command1(10).Left = 1920 And Command1(11).Left = 2640 _ And Command1(12).Left = 480 And Command1(13).Left = 1200 And Command1(14).Left = 1920 _ _ And Command1(0).Top = 1080 And Command1(1).Top = 1080 And Command1(2).Top = 1080 _ And Command1(3).Top = 1080 And Command1(4).Top = 1680 And Command1(5).Top = 1680 _ And Command1(6).Top = 1680 And Command1(7).Top = 1680 And Command1(8).Top = 2280 _ And Command1(9).Top = 2280 And Command1(10).Top = 2280 And Command1(11).Top = 2280 _ And Command1(12).Top = 2880 And Command1(13).Top = 2880 And Command1(14).Top = 2880 Then MsgBox " Ты победил" End IfEnd Sub Function Meshalka() ' Создаем Функцию Meshalka Randomize ' генерируем всегда разные числа For i = 0 To 900 ' Делаем цикл от 0 до 900(это чтоб хорошо перемешалось) d = Fix(Rnd * 14) ' В переменную d записываем случайное число от 0 до 14' Записываем в переменную координаты случайно выбранной кнопки q = Command1(d).Leftw = Command1(d).Top ' Запиcываем координаты Shape e = Shape1.Leftr = Shape1.Top ' Ставим кнопку на место Shape Command1(d).Left = eCommand1(d).Top = r ' Ставим Shape на место кнопки Shape1.Left = qShape1.Top = w ' P.S. и так 900 раз Next i End Function Private Sub Command2_Click()Meshalka ' При нажатии на кнопку, мешаем End Sub Private Sub Form_Load() ' Устанавливаем заголовки для всех кнопок For i = 0 To 14 ' Устанавливаем надписи на кнопках Command1(i).Caption = i + 1 ' К индексу кнопки прибавляется 1, т.к. у самой первой кнопки index = 0 Next iMeshalka ' Мешаем кнопки End Sub
Проверить существование папки vb
Эта функция нужна для проверки существования каталога или файла. Я забыл написать ее в пятой части(там о работе с файлами), а теперь этот шаг туда не помещается. Начнем`с. На форму кинь кнопку, вот код:
Private Sub Command1_Click() If Dir(" c: 1.txt") < > " " Then ' Если файла/папки не существует, то функция возвращает " ", если же существует, то функция возвращает имя файла MsgBox " Файл существует" Else MsgBox " Файл не существует" End IfEnd Sub
|
|