Откройте свой Мир!

Как к одной дате или текущей прибавить несколько суток.
(Необходимо проверить дни рождения на ближайшую неделю.)

Потом наверно у меня будет проблема сравнить попадет ли дата в указанный интервал.
Или подскажите источник
Заранее спасибо!!

Мне нужно в Excel нарисовать круговой массив линий, которые расположены под одинаковым углом друг к другу. В Excel сделал программу, но с рисунка видно, что линии расположены как-то неравномерно в круговом массиве.
С чем это связано и как все-таки сделать, чтобы на экране монитора это выглядело правильно? Код программы ниже:
Sub RADEK()
Dim i As Integer, r As Double
Dim x0 As Double, y0 As Double, x2 As Double, y2 As Double
x0 = 300: y0 = 300
r = 150
 For i = 0 To 360 Step 15
        x2 = x0 + r * Cos(i): y2 = y0 + r * Sin(i)
    ActiveSheet.Shapes.AddLine(x0, y0, x2, y2).Select
    Selection.Name = "line_" & i
    Selection.ShapeRange.Fill.Transparency = 0#
    With Selection.ShapeRange.Line
        .Weight = 0.75
        .DashStyle = msoLineSolid
        .Style = msoLineSingle
        .ForeColor.RGB = RGB(100, 80, 150)
        .Visible = msoTrue
    End With
 Next i
End Sub

Microsoft Visual Basic — средство разработки программного обеспечения, разрабатываемое корпорацией Microsoft и включающее язык программирования и среду разработки. Язык Visual Basic унаследовал дух, стиль и отчасти синтаксис своего предка — языка Бэйсик, у которого есть немало диалектов. В то же время Visual Basic сочетает в себе процедуры и элементы объектно-ориентированных и компонентно-ориентированных языков программирования. Среда разработки VB включает инструменты для визуального конструирования пользовательского интерфейса.

Visual Basic считается хорошим средством быстрой разработки прототипов программы, для разработки приложений баз данных и вообще для компонентного способа создания программ, работающих под управлением операционных систем семейства Microsoft Windows.

Первое признание серьёзными разработчиками Visual Basic получил после выхода версии 3 — VB3. Окончательное признание как полноценного средства программирования для Windows — при выходе версии 5 — VB5. Версию VB6, входящую в состав Microsoft Visual Studio 6.0, стала по-настоящему зрелым и функционально богатым продуктом. После этого разработчики из Microsoft существенно изменили направление развития данной технологии.

Visual Basic .NET не позволяет программировать по-старому, ибо по сути является совершенно другим языком, таким же, как и любой другой язык программирования для платформы .NET. Индивидуальность языка, так же как и его преимущества (простота, скромность создания программ, лёгкость использования готовых компонент) при использовании в среде .NET не имеют такого значения, как раньше — всё сосредоточено на возможностях самой системы .NET, на её библиотеке классов. Поэтому нужно говорить о классическом Visual Basic, его диалектах Visual Basic for Applications (VBA) и Visual Basic Scripting Edition (VBScript) и о языке для платформы .NET — Visual Basic .NET.

Язык Visual Basic не стандартизован ни ANSI, ни ISO.

e.KeyCode выдает код клавиши в процедуре обработки события нажатие клавиши
Хорошо бы при
if e.KeyCode =13 Then
передовался фокус другому TextBoxc у
end if
тоесть при нажатии ввода после того как пользователь наберет фамилию
фокус передовался  бы текстовому полю с именем итд.
Уважаемые программисты подскажите пожалуйста решение этой проблемы.

В качестве тренировки в программировании На vb 2005 exspress edition написал игру типа поле чудес однако пока не могу освоить ввод букв с клавиатуры тоесть ловить коды ascii при нажатии клавиш может кто знает& кстати ее можно скачать у меня в файлах
http://files.mail.ru/B1WPQC

Правила записи примеров, статей посвященных функциям, и всего остального что относится к Visual Basic.
 
 
Повторенные сообщения или сообщения содержащие другой язык программирования будут удаляться.
Пример должен содержать достаточно коментариев или описания, чтобы его могли понять.
Ошибки в коде недопустимы, но ошибки все делают, так что старайтесь сделать код, как можно грамотнее.
Необходимо указывать язык программирования к которому данный код написан. Если их несколько, то указать через запятую.
Правила не являются обязательными. Просто лучший вариант для сообщества - их собледения.

Предлагаю здесь писать свои примеры кода, которые могут быть использованы в других программах на VB.

Разрабатываю игру. Приглашаю всех желающих. Условие только одно - стаж программирования не менее 1 года.
IC Q: 55 - 390 - 138

В блоге задавайте свои вопросы, предложения создать какую-нить прогу, отвечать на вопросы, и все то, что относится в Visual Basic ... Жду вопросы ...

  Подскажите пожалуйста как правильно написать код, что бы при потере фокуса от объекта менялась картинка, ну как кнопки управления окном:

Private Sub PictureBox1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseDown
        If e.Button = MouseButtons.Left Then
            PictureBox1.Image = Global.Calculator_v_1._0.My.Resources.Resource1.panelbackspaceb
        End If
    End Sub

    Private Sub PictureBox1_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles PictureBox1.MouseEnter
        PictureBox1.Image = Global.Calculator_v_1._0.My.Resources.Resource1.panelbackspacea
    End Sub

    Private Sub PictureBox1_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles PictureBox1.MouseLeave
        PictureBox1.Image = Global.Calculator_v_1._0.My.Resources.Resource1.panelbackspace
    End Sub

    Private Sub PictureBox1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseUp
        If e.Button = MouseButtons.Left And PictureBox1.Focused = True Then
            PictureBox1.Image = Global.Calculator_v_1._0.My.Resources.Resource1.panelbackspacea
            If Not Label1.Text = "" Then
                Label1.Text = Mid(Label1.Text, 1, Len(Label1.Text) - 1)
            End If
        ElseIf e.Button = MouseButtons.Left And PictureBox1.Focused = False Then
            PictureBox1.Image = Global.Calculator_v_1._0.My.Resources.Resource1.panelbackspace
        End If
    End Sub

 Подскажите пожалуйста как проверить что указатель мыши находится на объекте

Подскажите пожалуйста как скрыть программу в "дз" процессах

Помогите разобраться, что от меня требуют в задаче, совсем не доходит, какой интерфейс должен быть...
Вот задача: Распечатайте список учеников музыкальной школы, которые учатся играть на скрипке. Укажите также, сколько лет они занимаются музыкой. Выборку списка учеников осуществите в одной подпрограмме, а ввод самого списка в линейный массив с записями – в другой.
На VB 6.0 надо...
Заранее спасибо!

 Даже самая простая програмка требует примерно 10 МБ памяти.
Это как нибудь можно исправить?

Привет всем!
 
Подскажите, как сформировать таблицу, т.е. вывести файл на экран в табличной форме.
Какие для этого нужно применить инструменты? ListBox выводит только одну колонку.
Не хотелось бы для этого применять Базу Данных. Может, кто знает способ попроще?
 
Виктор.

Подскажите пожалуйста как вставить картинку в контекстное меню как на картинке

Смотрите на баг) предыдущая запись - 2012 года))

  Люди добрые подскажите как сделать, чтобы при нажатии на кнопку в (например) "label1" начало идти (системное) время с нуля.

Большинство программ хранят свои настройки или иные записи в ini файлах, так-же немало программ используют реестр. Но выкладываю исходник функции, которая умеет записывать и считывать данные с ini файлов.

Скачать можно здесь.

Я считаю эту функцию полезной и нужной. Так что для тех кто с этим не знаком, обязательно ознакомьтесь.

Подскажите, можно ли  в таблице, находящейся на листе Excel, подсчитать число строк(пустых нет) не используя цикл? Операцию приходится выполнять не однократно, а таблицы огромные: 100 000 записей и более, поэтому упомянутый способ сильно замедляет выполнение макроса. Есть ли более элегантный способ решения?

 В vb 5ом или 6ом, точно не помню, можно создавать массивы и контролов (нап. text(0), text(1), text(2) и т.д), а вот в Visual Studio 2008 это не катит. Подскажите как это можно сделать.

У меня вопрос№_1: Если я установлю Visual Basic 2008, то я смогу работать с С#? Так как знаю, что в Visual Basic 6 этого нету... Или же нужно устанавливать Visual Basic Studio?
И вопрос№_2: Как сделать на VB6 программку для создания пустой папки и что б можно было во время создания называть, то есть давать имя будущей папке. А создавать, что б её можно было всего лишь одним нажатием клавиши на клавиатуре??
Буду рад если вы поможете или покажите источник где об этом говорится.
Заранее спасибо за внимание!

Добрый день дорогие программисты. Загрузил себе Visual Studio 8 C + + поэтому, приму все ваши коды на языке С++ так как хочу проверить работоспособность своей новой программы.

Здравствуйте!
Помогите пожалуйста с одной задачей.

Требование: Найти координаты точек пересечения окружности с прямой.
Условие: Даны координаты центра окружности, радиус и координаты двух точек принадлежащих этой прямой.
Язык: Visual Basic 2008 (но важны сами формулы и алгоритм решения).

Я пытался написать код, получилось вот что:



Вроде-бы все правильно, но числа получаются заоблачные, что говорит о неправильности.

Заранее спасибо большое всем кто поможет!

(программа русская)

Как вытащить из *.ехе\dll иконку размером НЕ 32х32 - Visual Basic 6.0 (32x32 и так могу)?!?!?!
Позарез нужно(да и просто нужно))

Помогите написать программу для задачки " Дано три числа a b c , какова вероятность что из них будут противоположные числа "

Напомощь(((( выручайте нужно решить задачку в visual basic 6.0 :
 
 Дан двумерный массив NxN (N - четное), в котором каждый элемент встречается четыре раза.
Развернуть его по строкам. Удалите все повторяющиеся элементы и сверните обратно по столбцам в массив
(N/2)x(N/2). Дополнительные массивы не использовать.