Как изменить координаты графического объекта?
Есть такой код

Worksheets("Лист1").Shapes("strela").ScaleWidth 2, msoFalse, msoScaleFromTopLeft

а нельзя ли явно указать x1,y1,x2,y2?

(читать всё…)

Требуется получить все ссылки с сайта из HTML-документа. Никак не получается рекурсия для поиска по всему сайту.

(читать всё…)

Имеется двумерный массив с распределением температуры в пластине. Необходимо его визуализировать. Делаю это с помощью Bitmap который загружаю в pictureBox Проблема в том, что у меня получается сделать визуализацию только с переходом от синего (минимальная температура) до красного (максимальная) А мне бы хотелось, чтобы было как в тепловизоре — с желтым, зеленым, оранжевым и т.д. цветами. Может кто сталкивался или имеет представление как формулы для расчета цвета нужно использовать

(читать всё…)

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

(читать всё…)

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

(читать всё…)

Как сделать, чтобы функция pos искала далее, а не показывал первую найденную строку ? То есть необходимо найти второе вхождение подстроки в строку, затем третье и так далее.

(читать всё…)

Для моего проекта мне необходимо получить список запущенных процессов.

Посоветуйте код, как это сделать.

(читать всё…)

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

Dim strFind As String
Dim strFind2 As String
    
        strFind = Nz(Me.Поле14.Text, "")
        strFind2 = Nz(Me.ПолеСоСписком5.Text, "")
        If strFind <> "" Then
        
            Forms![Форма1]![Форма2].Form.Filter = " strFind2 Like '*" & strFind & "*'"
            Forms![Форма1]![Форма2].Form.FilterOn = True
            
        Else
        
            Forms![Форма1]![Форма2].Form.FilterOn = False
            Me.Поле14.SetFocus
            
        End If

Форма 1 — та на которой расположены поля и кнопки, Форма 2 — табличная форма на которой нужно фильтровать данные.
После нажатия на кнопку не происходит ничего, ни ошибок, ни результата.

(читать всё…)

Есть две таблицы: Consist (id, id_mater, weight, cost_materials) и Materials (id_materials, name, price_materials). Помогите, пожалуйста, создать триггер, который после вставки данных в поле price_materials, умножал weight на price_materials и записывал полученный результат в поле cost_materials.

(читать всё…)

Есть программа, которая периодически должна обновить таблицу в другом приложении. Если приложение свернуто то необходимо его развернуть и нажать на нем F5.

(читать всё…)