Студопедия

Главная страница Случайная страница

Разделы сайта

АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторикаСоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника






Заливка окна рисунком в VB






Private Sub Form_Load() 'Ставим Image в самое начало формы: Image1.Left = 0Image1.Top = 0 End Sub Private Sub Form_Paint() 'Это событие помойму тоже самое что и Resize'Объявляем переменные Dim X As Integer, Y As Integer Dim ImgW As Integer Dim ImgH As Integer Dim FrmW As Integer Dim FrmH As Integer 'Использование Image1 в PaintPicture methods: ImgW = Image1.WidthImgH = Image1.HeightFrmW = Form1.WidthFrmH = Form1.Height 'Залить целую форму: For X = 0 To FrmW Step ImgW For Y = 0 To FrmH Step ImgHPaintPicture Image1, X, Y Next Y Next X End Sub

 

 

Папка в 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, и введи код:

Private Sub Form_Load()Text1.LinkTopic = " Server|Client" 'Здесь Server это имя проекта Сервера (мы вроде так его назвали?), а Client - имя формы клиента Text1.LinkItem = " Text1" 'Имя Текстового поля Сервера Text1.LinkMode = 1 '1 - означает Автомат (не в прямом смысле: -))), т.е. при изменение текста в Сервере, в Клиенте тоже будет меняться (Автоматом) End Sub

 

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

 






© 2023 :: MyLektsii.ru :: Мои Лекции
Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав.
Копирование текстов разрешено только с указанием индексируемой ссылки на источник.