Студопедия

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

КАТЕГОРИИ:

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






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




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

 

 

Папка в VB

Dim fso As New FileSystemObject, f As Folder ' Создаем объект FSO и объявляем переменную f для работы с папками Private Sub Command1_Click()fso.CreateFolder ("c:111111") ' Для создания папки есть метод CreateFolderEnd Sub Private Sub Command2_Click()' Способ 1Set f = fso.GetFolder("c:111111")f.Delete True' Способ 2'fso.DeleteFolder ("c:111111")End Sub Private Sub Command3_Click()' Способ 1Set f = fso.GetFolder("c:111111")f.Copy "c:games"' Способ 2'fso.CopyFolder "c:111111", "c:games"End Sub Private Sub Command4_Click()' Способ 1Set 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, чтоб в килибайты перевести ElseMsgBox "Такой папки не существует", 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) = "Хей" ' только надо помнить, что самый первый индекс равен 0Mass(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 = KEnd If'Двигаем вправо If Shape1.Left + 720 = L And Shape1.Top = T ThenK = Command1(Index).LeftCommand1(Index).Left = Shape1.LeftShape1.Left = KEnd If ' Двигаем в вверх:If Shape1.Top - 600 = T And Shape1.Left = L ThenK = Command1(Index).TopCommand1(Index).Top = Shape1.TopShape1.Top = KEnd If' Двигаем внизIf Shape1.Top + 600 = T And Shape1.Left = L ThenK = Command1(Index).TopCommand1(Index).Top = Shape1.TopShape1.Top = KEnd 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 ThenMsgBox "Ты победил"End IfEnd Sub Function Meshalka() ' Создаем Функцию MeshalkaRandomize ' генерируем всегда разные числаFor i = 0 To 900 ' Делаем цикл от 0 до 900(это чтоб хорошо перемешалось)d = Fix(Rnd * 14) ' В переменную d записываем случайное число от 0 до 14' Записываем в переменную координаты случайно выбранной кнопкиq = Command1(d).Leftw = Command1(d).Top' Запиcываем координаты Shapee = Shape1.Leftr = Shape1.Top ' Ставим кнопку на место ShapeCommand1(d).Left = eCommand1(d).Top = r' Ставим Shape на место кнопкиShape1.Left = qShape1.Top = w' P.S. и так 900 разNext iEnd Function Private Sub Command2_Click()Meshalka ' При нажатии на кнопку, мешаемEnd Sub Private Sub Form_Load()' Устанавливаем заголовки для всех кнопокFor i = 0 To 14 ' Устанавливаем надписи на кнопкахCommand1(i).Caption = i + 1 ' К индексу кнопки прибавляется 1, т.к. у самой первой кнопки index = 0Next iMeshalka ' Мешаем кнопкиEnd Sub

 

Проверить существование папки vb

Эта функция нужна для проверки существования каталога или файла. Я забыл написать ее в пятой части(там о работе с файлами), а теперь этот шаг туда не помещается. Начнем`с. На форму кинь кнопку, вот код:

Private Sub Command1_Click()If Dir("c:1.txt") <> "" Then ' Если файла/папки не существует, то функция возвращает "", если же существует, то функция возвращает имя файлаMsgBox "Файл существует"ElseMsgBox "Файл не существует"End IfEnd Sub

 


mylektsii.ru - Мои Лекции - 2015-2018 год. (0.013 сек.)Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав Пожаловаться на материал