» Задачи на Visual Basic (VB).

Подскажите, пожалуйста почему


Код:

Код:
Set oWord = CreateObject("Word.Application")
Set oDoc = oWord.Documents.Open(Filename:=sNameTargetFile + ".txt", Format:=wdOpenFormatAuto, Encoding:=866)
With oWord.Selection
.Find.Text = " текст1 "
.Find.Execute

Могли бы вы помочь решить задачи в экселе ( вба). очень нужно понять их.
1) Найти элемент над главной диагональю квадратной целочисленной матрицы, значение которого принадлежит заданному отрезку.

2)Вывести слово с номером K заданного предложения.

буду очень благодарна!! )

Доброго времени суток всем! Есть такая задача: создать программу запускающую архивацию нескольких папок.
ВОПРОСЫ:
1) такие вещи вообще в VB пишутся?
2) как передать из своей программы - при запуске Shell (rar.exe) параметры(адресса архивируемых папок)?
3) ДОПОЛНИТЕЛЬНО: как сделать связь с событиями OS(WinXP) приЗапуске, приОтключении, приСменеПользователя ?

Добавлено:
Да еще один вопросик - не относится к поставленной выше задаче: как получить из Оперы (текст кода/тегов) открытой из VB тем же оператором Shell - страницы. Текст - записать в переменную?

Помогите пожалуйста ламеру
при вводе более одного значения, код начинает ругатся

Private Sub CommandButton1_Click()

l = UserForm1.TextBox1.Text
Cells.Find(What:=CStr(l), After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
, SearchFormat:=False).Activate

UserForm1.Show

а вообще то суть была в том, что на листе excel размещаю userform+textbox+button
и ищу значение введенный в textbox
так удобнее чем "Правка-Найти и тд"

maratino

Цитата:

CStr(l)

- объяви как массив, предварительно

Здравствуйте.
Хотел спросить. как определяется однонаправленный список ? ListNode ?

GenyaMS

CStr(l)
- объяви как массив, предварительно "
Если бы я знал как это делается.
Ели не трудно, покажи на примере.
Спасибо!

Здравствуйте.
Начинаю осваивать VB 6.0. В учебнике описывается для Microsoft VB 2005. Я так понял синтаксис несколько различается.
Пытался написать простенький калькулятор
Код.
Private Sub Button1_Click()
Label1. Text = Val(TextBox1.Text) + Val(TextBox2.Text)
End Sub
Это для одной кнопки, операция сложение. Он VB 6,0 ее не воспринимает. Код для VB 2005
Может кто посоветует учебник для этого дела. Только пока попроще, все как-никак первые шаги...
Заранее спасибо

Sanyok112
В VB6 label не имеет свойства text. Используй caption.
Label1. Caption = Val(TextBox1.Text) + Val(TextBox2.Text)

Книги спроси в
http://forum.ru-board.com/topic.cgi?forum=93&topic=1837&start=1180#lt
http://forum.ru-board.com/topic.cgi?forum=93&topic=0461&start=1620#ltКниг

Спасибо! Переписал код.
Вот:

Private Sub Command1_Click()
Label1.Caption = Val(TextBox1.Caption) + Val(TextBox2.Caption)
End Sub

Когда запускаю программу - выдает ошибку - необходим объект.

Sanyok112
На форме должны присутствовать все контролы из кода. И именно с такими именами. И именно такого типа.
Т.е., должна быть одна label с именем Label1 и два textbox с именами TextBox1 и TextBox2.
Если не так, то или меняй код, или имена контролов.


Цитата:

В VB6 label не имеет свойства text. Используй caption.
Label1.Caption = Val(TextBox1.Text) + Val(TextBox2.Text)

maratino

Цитата:

CStr(l)
- объяви как массив, предварительно

Dim CStr(1 To 1000) As String(это тип данных символьный) можно другой тип выбрать. Объявить нужно в начале процедуры.

Привет,хотел спросить может кто встречал подобную задачу или кто сможет помоч решить её)

Моделировать движение звезд видимых через эллюминатор космического корабля)


(думаю это что-то типа заставки в виндоуса космос)
точки исходящие с середины движущееся в сторонны и увеличиваются,когда достигают конца окошка-изчезают))

dansaram

Цитата:

может кто встречал подобную задачу

Цитата:

Моделировать движение звезд видимых через эллюминатор космического корабля

Что-то подобное делал - но в 3d-max на скриптах писал. код к сожалению не смогу найти - дело было давнее... Помню что там очень текст скриптов понятный.

Подскажите в таком вопросе VB6.
Есть форма. На форме расположены различные эелементы и в том числе FlexGrid.
Так вот не перехватываются нажатия клавиш вверх, вниз, влево, вправо именно на FlexGrid`е в процедурах KeyDown и KeyUP (KeyPress само-собой). На остальных контролах перехват работает. При установке свойства формы keyPreview в True ничего не меняется.
Я уже замучался искать корень зла. Помогите, пожалуйста.

Программировал лет 8 назад в VBA. Сейчас поставил VB express 2008. Вопрос вроде простой, но ответа не могу найти. Имею окно Form1, как поменять размер шрифта, его стиль в заголовке окна (Form1), цвет и т.д. (свойства Font) и сам цвет заголовка

Archimed

http://www.eggheadcafe.com/software/aspnet/31638914/how-to-change-forms-title.aspx

По первой ссылке, вроде как не рекомендуют это делать. По остальным ничего нужного не нашел. Вечный вопрос, так можно или низзя.

Archimed
Ну как всегда. Если очень хочется то можно, но через API. Но никто не хочет заморачиваться, т.к. слишком слoжно и могут быть всякие неожиданности.
Или, как советуют по первой ссылке, имитировать самому на без-заголовочной форме.

Остальные ссылки поместил по ошибке.

Попробуй http://www.codeguru.com/cpp/misc/misc/titlebar/article.php/c387
Может будет работать и в .Net
Если задать одинакоый цвет для начала и конца градиента, то получится сплошной цвет.

Необходимо градусы (угловые), минуты, секунды в формате Г.ммсс перевести в градусы с долями градусов. составил программу:
Dim G As Single
Dim mm As Single
Dim ss As Single
G = 45.3
Print G
f = (G - Int(G)) * 100
Print f
mm = Int(f) / 60
Print mm
ss = (f - Int(f)) / 36
Print ss
G = Val(Int(G)) + Val(mm) + Val(ss)
Print G

G = 45.3 - для примера, так VB6 выдает значение G=47, вместо 45,5, mm=0.48777...., вместо 0,5. Может быть кто то пояснит, в чем причина? VB6 скачан из NET.
C уважением, burun2004/

с G=47 разобрался, убрал Val, теперь G=45.51111....., но mm остается в вопросе.

C уважением, burun2004

Народ помогите пожалста до 15-го апреля решить задачу, ато к экзамену не допустят. Доно натуральное число, переставить его цифры так, чтобы образовалось максимальное число, записанное теми же цифрами.

TRUNOV 24
На форме: текст.поле для ввода числа (txtNumber), кнопка (btnRun) и лейбл для вывода результата (lblResult):

Private Sub btnRun_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnRun.Click

'объявление переменных
Dim intInputNumber As Integer = Val(txtNumber.Text) 'переменная для хранения введенного числа
Dim intNumbers As Integer = 0 ' цифры числа, начиная справа
Dim mNumbers As Integer() ' одномерный массив
Dim n As Integer = 0 'строки в массиве
Dim strResult As String = "" 'вывод результата
Dim strCount As String ' определение длины введенного числа

If txtNumber.Text = "" Then
MsgBox("Введите натуральное число!", MsgBoxStyle.OkOnly, "Ошибка!")
Return
End If

strCount = intInputNumber
mNumbers = New Integer(strCount.Length - 1) {}

Do
intNumbers = intInputNumber Mod 10
mNumbers(n) = intNumbers
n = n + 1
intInputNumber = (intInputNumber - intNumbers) / 10
Loop While intInputNumber > 0

Array.Reverse(mNumbers)
n = 0

Do Until n = mNumbers.Length
strResult = strResult & mNumbers(n)
n = n + 1
Loop

lblResult.Text = strResult
End Sub

Народ, не подскажете как вывести графическую диаграмму из Excel в приложение WindowsApplication Visual Studio?

В программке рисую в Picture Box элементарную картинку ( движение маятника), подскажите, пожалуйста, как ее от туда "достать"? Можно как то сохранить это в Gif или хотя бы покадрово в BMP ( это уже можно в анимацию склеить ) или уже на крайняк, если нет способа то подскажите программку для захвата видео с части экрана. Просто это нужно будет вставить в презентацию в MS PP...

FOBOS1992
http://www.xtremevbtalk.com/showthread.php?t=44717

Нужен скриптик для проверки активности определенной службы Windows. При неактивности скрипт должен эту службу запустить. Скрипт планируется использовать через планировщик Windows. Никто не натыкался на готовый?

Есть такая задача:

Создать форму, имеющую пять кнопок управления, четыре из них для указания направления перемещения формы, пятую для выхода из программы. При нажатии на любую из первых четырех кнопок форма должна перемещаться по экрану на заранее заданный шаг (величину шага выбрать самостоятельно). В заголовок формы выдавать текущее смещение по Х и У от начального положения.

Вопросов 2:
1- Как(на примере 1 кнопки) сделать так, чтобы по нажатию кнопки, форма двигалась в нужном направлении? Какая команда?
2- Как правильно отображать в заголовке формы текущее положение?

Заранее спасибо)

Seris2

[FormName].Left; [FormName].Top
или для всех сразу [FormName].Move(paramerers)

[FormName].Caption = [FormName].Left & ...

Помогите, пожалуйста.

Необходимо записать данные из вэб в какую нибудь переменную для дальнейшей работы с ней.
Как это реализовать в VBA Excel?