NEOMATRIX Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Данный топик предназначен только для обсуждения типовых задач на Visual Basic. Обсуждение задач на VBA (а именно, Excel, Word, Access) строго запрещено! Пишите в соответствующих топиках.   Родственные топики: Excel VBA - часть 1, часть 2 - все вопросы по Excel VBA туда Word VBA все вопросы по Word VBA туда Access все вопросы по программированию в Access туда VBScript - программирование "удобняшек" на VBScript QBasic - типовые задачи на QBasic   Date Time Functions In Visual Basic VB6's Trig, Math, Financial, Boolean, and Random functions Visual Basic 6 String Functions VB6 Number System Functions (Hex, Oct, Etc) VB6's DateAdd function   Functions (Visual Basic) Keywords and Members by Task Visual Basic Reference   Visual Basic String Manipulation Tutorials   Top 10 Visual Basic Sins   Учебники: Visual Basic для студентов и школьников. Культин Н. (2010) Занимательное программирование на Visual Basic.NET. Климов А. (2005) Visual Basic в задачах и примерах. Сафронов (2009) Visual Basic 2012 на примерах. Зиборов В. (2012) Всего записей: 202 | Зарегистр. 29-12-2004 | Отправлено: 19:30 16-11-2005 | Исправлено: XPerformer, 10:07 28-10-2014

SteRvo4ka777 Newbie Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору ItsJustMe Огромное спасибочки.. ну я теперь хоть знаю от чего мне отталкиваться... ) еще раз огромное при огромное спасибки... Всего записей: 2 | Зарегистр. 22-12-2008 | Отправлено: 00:13 24-12-2008

Tobias Junior Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Помогите, пожалуйста,  описать хаотичное движение в VB элемента  Image, помещенного в PictureBox. Некоторую часть я уже сделал, но картинка отталкивается от правой границы PictureBox и идет вниз, затем выходит за нижний предел и исчезает, потом (скорее всего отталкивается от нижней границы, просто этого не видно - т.к. картинка вне границ) продолжает движение...   В общем вот код, я уже не знаю, что еще попробовать, никак не получается...   Option Explicit       Dim dx As Integer     Dim dy As Integer   Private Sub CommandButton1_Click()     T.Enabled = True End Sub   Private Sub CommandButton2_Click()     T.Enabled = False End Sub   Private Sub Form_Load()     dy = 100     dx = 100 End Sub   Private Sub T_Timer()     ImgBall.Move ImgBall.Left + dx, ImgBall.Top - dy     If ImgBall.Top <= 0 Then dy = -dy     If ImgBall.Left <= 0 Or ImgBall.Left >= PictureBox.Width - ImgBall.Width Then dx = -dx     If ImgBall.Top <= 0 Or ImgBall.Top >= PictureBox.Width - ImgBall.Width Then dy = -dx     ??????? End Sub     Всего записей: 63 | Зарегистр. 03-06-2002 | Отправлено: 19:28 25-12-2008 | Исправлено: Tobias, 21:39 25-12-2008

Tobias Junior Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Спасибо  Но что-то не то... Вот так точно работает Option Explicit Dim speed As Integer Dim dTop, dLeft As Integer   Private Sub CommandButton1_Click() T.Enabled = True End Sub Private Sub CommandButton2_Click() T.Enabled = False End Sub Private Sub Form_Load() speed = 100 dTop = speed dLeft = speed End Sub Private Sub T_Timer() ImgBall.Move ImgBall.Left + dLeft, ImgBall.Top - dTop If ImgBall.Top <= 0 Then dTop = -speed If ImgBall.Left <= 0 Then dLeft = speed If ImgBall.Top + ImgBall.Height >= PictureBox.Height Then dTop = speed If ImgBall.Left + ImgBall.Width >= PictureBox.Width Then dLeft = -speed End Sub Всего записей: 63 | Зарегистр. 03-06-2002 | Отправлено: 15:14 29-12-2008

tau34 Newbie Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Как создать кнопку для загрузки фото на сайт, добавления объявлений, добавления новостей как посетителю так и админу? Если можете подскажите http://tau34.narod.ru Всего записей: 9 | Зарегистр. 02-01-2009 | Отправлено: 06:01 06-01-2009

weel Newbie Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Ребята, нужна помощь, я уже пол года по нету лажу ниче не могу найти! Проблема с взаимодействием VB и JS.Пишу прогу, которая работает с HTML страницей, и в основном там JS. Проблема такова: получаю м помощью MSHTML.dll по Id текстовое поле, изменяю его .value ,причем оно меняется, получаю по Id кнопку Сохранить нажимаю ее, НО-при перегрузке страницы значение не меняется!!!!Если же сделать фокус и отправить сообщение окну Ctrl+V то поле изменяется и значение остается.Мне надо чтоб прога работала в фоновом режиме,нет возмозности оставлять активным окно чтоб отправить в него Ctrl+V.Как можно поменять value чтоб оно сохранилось?   часть кода: Dim Y As HTMLDocument Dim rc As HTMLTextAreaElement Set Y = web.Document For Each rc In Y.All      If rc.Id = "ms32" Then            rc.Value="Something"      end if   Next     с ней не выходит,      а вот:     For Each rc In Y.All                                   If rc.Id = "ms32" Then 'поле статус аларма                                                 Clipboard.Clear                         Clipboard.SetText "Something", vbCFText                         rc.setActive                         rc.focus                         keybd_event VK_CONTROL, 0, 0, 0 ' press ctrl                         keybd_event VK_V, 0, 0, 0 ' press v                         keybd_event VK_CONTROL, 0, KEYEVENTF_KEYUP, 0 ' release ctrl                         keybd_event VK_V, 0, KEYEVENTF_KEYUP, 0 ' release v                 End If   тоже изменяет значение и сохраняет           Добавлено: Или хоть подскажите где искать, по DHTML литературы очень мало,а задача очень специфическая((((( VB знаю нормально, а вот с JS незнаю(((( Всего записей: 16 | Зарегистр. 04-08-2008 | Отправлено: 02:28 08-01-2009 | Исправлено: weel, 02:50 08-01-2009

dneprcomp Silver Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Shura787689 Какая ошибка? В чем выражается "не работает"?   База поставляется с программой? Путь тот же? Что значит "пишу прогу без базы данных"? Всего записей: 3920 | Зарегистр. 31-03-2002 | Отправлено: 00:40 23-01-2009 | Исправлено: dneprcomp, 04:14 23-01-2009

dneprcomp Silver Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Shura787689 Т.к. ошибки нет, возьми и поставь в ключевых местах программы msgbox-ы. На лоад, активейт, на обращение к базе и т.д. Посмотри до какого дойдет. Всего записей: 3920 | Зарегистр. 31-03-2002 | Отправлено: 08:54 23-01-2009

Yulcha Newbie Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору напишите мне пожалуйста программуизвестны координаты вершин прямоугольника.написать программу которая определяет находится ли точка А с указанными координатами внутри или вне прямоугольника Всего записей: 1 | Зарегистр. 18-02-2009 | Отправлено: 19:26 18-02-2009

Akvilon1 Junior Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Цитата: напишите мне пожалуйста программуизвестны координаты вершин прямоугольника.написать программу которая определяет находится ли точка А с указанными координатами внутри или вне прямоугольника   'Точка A (X1, Y1) - координаты нижнего левого угла прямоугольника Dim X1 As Integer Dim Y1 As Integer   'Точка B (X2, Y2) - координаты правого верхнего угла прямоугольника Dim X2 As Integer Dim Y2 As Integer   'Точка С (X, Y) - заданная точка принадлежность которой нужно проверить Dim X As Integer Dim Y As Integer '''''''''''''''''''''''' '''''''''''''''''''''''' '''''''''''''''''''''''' 'Зададим координаты X1 = 1 Y1 = 0   X2 = 5 Y2 = 3   X = 2 Y = 1     '''''''''''''''''''''''' '''''''''''''''''''''''' If X >= X1 And X <= X2 Then If Y >= Y1 And Y <= Y2 Then MsgBox "Точка принадлежит прямоугольнику", vbOKOnly Exit Sub End If End If   MsgBox "Точка не принадлежит прямоугольнику", vbOKOnly     Добавлено: Цитата: Уважаемые товарищи программисты, не могли бы вы мне решить 2 (наверняка не оч сложные для вас) задачи, был бы примногоблагодарен! (сам я в этом деле не в зуб ногой)     1) Из заданной символьной строки выбрать те символы, которые встречаются в ней только один раз, в том порядке, в котором они встречаются в тексте.     2)Определить наименьший элемент каждой четной строки матрицы A[М, N].     Надеюсь на вас!     Задача еще актуальна? Всего записей: 106 | Зарегистр. 20-02-2009 | Отправлено: 01:28 21-02-2009

Страницы: 1 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

Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Задачи на Visual Basic (VB).

Переход по форумам  Закладки   » Компьютеры Цифровое изображение Программы Microsoft Windows UNIX Другие OS Hardware В помощь сисадмину Прикладное программирование Игры Форумные игры   » Интернет Web-программирование В помощь вебмастеру Графика Хостинг Зацените-ка!   » Тематические Ikonboard v.2 Ikonboard v.3 Invision Board Другие форумы PHP-Nuke и другие порталы Мобила   » Общие Спорт Флейм Темы по региональным встречам Музыка и Кино Юмор Литература и Живопись   » Ru.Board Новости Помощь по форуму   » Андеграунд eBookz Варезник Раздачи и акции Мобильный варезник Андеграунд Игры и фильмы   » Специальные Тестирование