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

Перейти из форума на сайт.

Новости • Файловые архивы
Поиск • Активные темы • Топ лист
Правила • Кто в on-line?

Вход • Забыли пароль? • Первый раз на этом сайте? • Регистрация

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

Модерирует : ShIvADeSt
Версия для печати • Подписаться • Добавить в закладки
Страницы: 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

Открыть новую тему

Написать ответ в эту тему

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

Junior Member

Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

dneprcomp
Тот код который я выставил, работает таким образом
В ячейке А2 есть TextBox к которому привязан мною выставленный код
А дальше в низ по столбцу, наименование товаров

А

2 Арбуз
3 Виноград
4 Арахис
5 Вишня
6 Абрикос
7 Тыква
8 Алича

Когда в TextBox-e я набираю букву А, то все, что начинается с буквы "А" фильтруются, если продолжаю ввод и ввожу Р, то все те слова которые начинаются "Ар" фильтруются и выводятся
2 Арбуз
4 Арахис
Теперь, я хочу, чтобы он, или другой код, таким же образом работал с числамми

Всего записей: 58 | Зарегистр. 11-03-2007 | Отправлено: 19:52 10-10-2007

Silver Member

Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

maratino
Все должно работать точно так же. Цифры для компьютера такие же знаки, как и буквы.
Откуда поступают данные в столбец? Если с базы, то может поля с цифрами не в стринговом формате и, соответственно, запрос строится не верно. В общем, без первоисточника ничего сказать не могу. Аплодай програму на rapidshare. Тогда может найду что-нибудь.

Всего записей: 3923 | Зарегистр. 31-03-2002 | Отправлено: 20:54 10-10-2007

maratino Junior Member	Редактировать \| Профиль \| Сообщение \| Цитировать \| Сообщить модератору dneprcomp если можно, оставьте свой эмайл, я вам на почту вышлю
	Всего записей: 58 \| Зарегистр. 11-03-2007 \| Отправлено: 12:19 11-10-2007

dneprcomp Silver Member	Редактировать \| Профиль \| Сообщение \| Цитировать \| Сообщить модератору maratino Лучше на любой файлообменник. http://rapidshare.com/
	Всего записей: 3923 \| Зарегистр. 31-03-2002 \| Отправлено: 21:14 11-10-2007

maratino Junior Member	Редактировать \| Профиль \| Сообщение \| Цитировать \| Сообщить модератору dneprcomp извини, я не имею даже понятие речь очем Извини, что отнимал у тебя столько времени я сам как нибудь разберусь
	Всего записей: 58 \| Зарегистр. 11-03-2007 \| Отправлено: 02:20 12-10-2007

Silver Member

Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

maratino
Если несколько файлов, то сделай архив.
Просто зайди по ссылке http://rapidshare.com/
Затем нажми кнопку Browse. Найди свой архив/файл и аплодай на сайт-файлообменник. После окончания аплоада получишь ссылку. Помести ее сюда и я смогу скачать. Принимать по е-мейлу файл неизвестной величины это не самое лучшее занятие.

Всего записей: 3923 | Зарегистр. 31-03-2002 | Отправлено: 03:50 12-10-2007

Junior Member

Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

я отправил
но там наверное регистрация нужна, что ли
dneprcomp
Все спасибо, я разобрался, все в порядке. Спасибо за внимание
Удачи

Добавлено:
ZORRO2005 Здравствуйте!
Вы неможоте мне подсказать код textbox который и числа умеет фильтровать
тот, который вы меня подсказали с текстом работает, а с цифрами никак

вот код, который текст признает а цифры нет

Private Sub TextBox1_Change()
If TextBox1.Text <> "" Then
Range("A2").AutoFilter Field:=1, Criteria1:="=" & TextBox1.Text & "*", Operator:=xlAnd
Else
Range("A2").AutoFilter Field:=1
End If
End Sub

Private Sub TextBox2_Change()
If TextBox2.Text <> "" Then
Range("B2").AutoFilter Field:=2, Criteria1:="=" & TextBox2.Text & "*", Operator:=xlAnd
Else
Range("B2").AutoFilter Field:=2
End If
End Sub

повторяю, не следует постить код для ВБА в топике по ВБ. Тем более повторять одно и тоже сообщение.

Всего записей: 58 | Зарегистр. 11-03-2007 | Отправлено: 20:51 12-10-2007 | Исправлено: ShIvADeSt, 10:27 14-10-2007

Bersa

Junior Member

Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

Мужики, подскажите пожалуйста, как сделать чтобы при использовании DataGridView можно было выбрав определенную строку открыть вложенную форму с детальными данными, относящимися к этой строке? Например: имеется база данных по заказам, необходимо выбрав в таблице строку с заказом, открыть данные по этому заказу. Используется Visual Basic 2005.

Всего записей: 58 | Зарегистр. 20-12-2006 | Отправлено: 23:53 15-10-2007

artemds

Member

Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

Bersa
Сделай связанный Dataset, включи в него связанные таблицы, содерживое будет автоматически меняться на основании выбранной позиции в родительской таблице... как в MS Access

Всего записей: 214 | Зарегистр. 24-06-2005 | Отправлено: 14:34 17-10-2007

phper

Junior Member

Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

Надо переводить на секунду назад, каждую секунду, часы Windows'а(XP).
То есть, что бы когда программа была запущена, часы вообще не шли.

Вопрос: Как вообще управлять этими самыми часами Windows'а?

Всего записей: 55 | Зарегистр. 30-03-2006 | Отправлено: 00:58 18-10-2007

AndronH Newbie	Редактировать \| Профиль \| Сообщение \| Цитировать \| Сообщить модератору Date = "10.10.2008" Time = "10:10" Остальную работу с таймером додумай сам
	Всего записей: 21 \| Зарегистр. 14-12-2006 \| Отправлено: 10:03 18-10-2007

Kri Newbie	Редактировать \| Профиль \| Сообщение \| ICQ \| Цитировать \| Сообщить модератору Как сделать чтобы при закрытии файла (нажимают на крестик) или при печати, выскакивало определенное сообщение ? Спасибо.
	Всего записей: 4 \| Зарегистр. 16-01-2006 \| Отправлено: 14:40 18-10-2007

phper Junior Member	Редактировать \| Профиль \| Сообщение \| Цитировать \| Сообщить модератору AndronH Большое спасибо =) Оказывается всет так просто =)
	Всего записей: 55 \| Зарегистр. 30-03-2006 \| Отправлено: 20:29 18-10-2007

dneprcomp Silver Member	Редактировать \| Профиль \| Сообщение \| Цитировать \| Сообщить модератору Kri Используй события формы Private Sub Form_QueryUnload или Private Sub Form_Unload Как вызывается печать?
	Всего записей: 3923 \| Зарегистр. 31-03-2002 \| Отправлено: 20:49 18-10-2007

Kri Newbie	Редактировать \| Профиль \| Сообщение \| ICQ \| Цитировать \| Сообщить модератору На кнопку нажимают.
	Всего записей: 4 \| Зарегистр. 16-01-2006 \| Отправлено: 09:32 19-10-2007

dneprcomp Silver Member	Редактировать \| Профиль \| Сообщение \| Цитировать \| Сообщить модератору Kri На какую кнопку? Кто писал процедуру для кнопки? В общем случае, добавляй вызов msgbox в процедуру кнопки.
	Всего записей: 3923 \| Зарегистр. 31-03-2002 \| Отправлено: 10:10 19-10-2007

mikeryrg Junior Member	Редактировать \| Профиль \| Сообщение \| Цитировать \| Сообщить модератору подскажите как в vb работать с ole объектом, в моем случае это таблица excel можете дать пример как в ячейку поместить какое-нибудь значение?
	Всего записей: 42 \| Зарегистр. 07-01-2007 \| Отправлено: 13:53 20-10-2007

Junior Member

Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

artemds
Может вы подскажите код textbox который и числа умеет фильтровать
этот код с текстом работает, а с цифрами никак

вот код, который текст признает а цифры нет

Private Sub TextBox1_Change()
If TextBox1.Text <> "" Then
Range("A2").AutoFilter Field:=1, Criteria1:="=" & TextBox1.Text & "*", Operator:=xlAnd
Else
Range("A2").AutoFilter Field:=1
End If
End Sub

Private Sub TextBox2_Change()
If TextBox2.Text <> "" Then
Range("B2").AutoFilter Field:=2, Criteria1:="=" & TextBox2.Text & "*", Operator:=xlAnd
Else
Range("B2").AutoFilter Field:=2
End If
End Sub

было уже несколько предупреждений за поднятие одного и того же топика. Сделан запрос на запрет на пост в моем разделе.

Всего записей: 58 | Зарегистр. 11-03-2007 | Отправлено: 22:59 20-10-2007 | Исправлено: ShIvADeSt, 02:29 22-10-2007

kpblc

Advanced Member

Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

VB6
Код:

Option Explicit

Private Sub Text1_Change()
Dim CharCode As Integer
With Me
If .Text1.Text <> "" Then
CharCode = Asc(Right(.Text1.Text, 1))
If Not ((CharCode >= 48 And CharCode <= 57) Or CharCode = 46 Or CharCode = 44) Then
.Text1.Text = Left(.Text1.Text, Len(.Text1.Text) - 1)
.Text1.SelStart = Len(.Text1.Text)
End If
End If
End With
End Sub

Всего записей: 717 | Зарегистр. 08-08-2003 | Отправлено: 23:23 20-10-2007 | Исправлено: kpblc, 23:25 20-10-2007

RustamNazarov

Newbie

Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

Задача состоит в следующем:
Вставить в форму элемент управления RichTextBox, который позволя бы ввести также математические формулы. Для этого пусть вставиться командная кнопка CommandButton. Т.е. после выполнения приложения, пользователь вводить в поле RichTextBox какой-либо текст и при необходимости (когда находится в позиции, где нужна ввести математическую формулу) нажимает на командную кнопку. При нажатии этой кнопки с использованием функции Shell вызывается редактор формул Microsoft Equation Editor. Пользователь вводить формулу.
А теперь вопрос: Как можно получить (вставить) эту формулу в соответвующее место, т.е. после набора когда закрывается окно редактора формул? Т.е. при выходе из редактора без использовании действия Копировать/Вырезать - Вставить.

Всего записей: 1 | Зарегистр. 30-10-2007 | Отправлено: 11:34 30-10-2007

Открыть новую тему

Написать ответ в эту тему

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

Реклама на форуме Ru.Board.

Powered by Ikonboard "v2.1.7b" © 2000 Ikonboard.com
Modified by Ru.B0ard
© Ru.B0ard 2000-2025

BitCoin: 1NGG1chHtUvrtEqjeerQCKDMUi6S6CG4iC