Как это сделаьть?

[qweq]

1 есть поле куда вводим значение переменной есть кнопка при нажатии на которую выполняется
Dim q
q = Sqr(3) * (storona.Text) ^ 2
otv_pl = q
где
storona.Text это значение переменной
otv_pl это label в котором пишется значение q
нужно округлить значение q до сотых как это сделать
2 есть обьект image и 2 кнопки как сделать чтоб при нажатии 1 кнопки в обьекте image менялась картинка на следущюю из тойже директории (и как задать директорию?) а при нажатии на предыдущюю???

[DeMONiZ]

На первый вопрос это ищи по форуму тут такое вроде уже было не раз.
На второй вопрос все просто вот код набросал:

Код: Выделить всё

Dim d

Private Sub Command1_Click()
d = d + 1
Image1.Picture = LoadPicture("E:\" & d & ".JPG")
Image1.Refresh
End Sub

Private Sub Command2_Click()
d = d - 1
Image1.Picture = LoadPicture("E:\" & d & ".JPG")
Image1.Refresh
End Sub

проверку если некуда назад листать думаю сам напишешь.

[qweq]

Спасибо за 2 ответ. В коде разобрался, всё понял. Первый буду искать!

[arvitaly]

Dim q As Double
q = Round(Sqr(3) * (cdbl(storona.Text)) ^ 2, 2)

[qweq]

а возможно ли не загружать в обьект image определённый файл а листать все из одной папки?

[dr.MIG]

Возможно. Dir тебе в помощь.

[qweq]

как из нескольких чисел выбрать самое большое?
dir нашол, применил. Спасибо!

[arvitaly]

Написать алгоритм выбирающий из нескольких чисел самое большее

[Хакер]

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

[arvitaly]

Зато Министерство Образования не беспомощно
http://window.edu.ru/window_catalog/fil ... 78/013.pdf

[qweq]

Как сменить цвет букв на кнопке ?? (понимаю ламерский вопрос но я чесно не знаю )

[Viper]

На кнопке? Перерисовать.

[qweq]

Перерисовать.

В каком смысле??

[Viper]

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

[qweq]

Спасибо!

[qweq]

Как сдклать чтоб окно программы было всегда поверх всех остальных окон? Даже диспечера задач.

[Viper]

Это называется Topmost - в поиск по этому слову

[qweq]

сделал TopMost но оно не перекрываает меню пуск и диспечер задач ((
вот код

Код: Выделить всё

Private Declare Function SetWindowPos Lib "user32" (ByVal _
    hWnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, _
    ByVal y As Long, ByVal cx As Long, ByVal cy As Long, _
    ByVal wFlags As Long) As Long

Sub SetTopmostWindow(ByVal hWnd As Long, Optional topmost As Boolean = True)
    Const HWND_NOTOPMOST = -2
    Const HWND_TOPMOST = -1
    Const SWP_NOMOVE = &H2
    Const SWP_NOSIZE = &H1
    SetWindowPos hWnd, IIf(topmost, HWND_TOPMOST, HWND_NOTOPMOST), 0, 0, 0, 0, _
        SWP_NOMOVE + SWP_NOSIZE
End Sub


как их перекрыть???

[JohnK]

И не будет перекрывать.
Какая цель твоей прораммы? Блокировать компьютер?

[qweq]

Цель программы в том чтобы заблокировать экран. Не подумайте что пишу вирус. Я пишу программу для блокировки экрана. Пароль вводит пользователь , программа не требует отправки смс и чёнить типа того просто для блокировки. Потом-учто вин-пас не помогает его легко взломать.

[JohnK]

Блокировка компа, как правило, достигается блокированием (перехватом клавы и мышки). Вообщем поиск по форуму.
Можно отключить TaskManager, но клавиша Win будет работать...

[iGrok]

Цель программы в том чтобы заблокировать экран. Не подумайте что пишу вирус. Я пишу программу для блокировки экрана. Пароль вводит пользователь , программа не требует отправки смс и чёнить типа того просто для блокировки. Потом-учто вин-пас не помогает его легко взломать.

Либо ты сам чего-то не понимаешь, либо ты просто лжёшь, причём лжёшь неубедительно. Расскажи-ка поподробнее, каким именно образом можно "сломать" виндовый пароль с экрана блокировки (Win+L), не перезагружая при этом комп?

[qweq]

Ну без перезагрузки никак. Так в том и дело программа будет запускаться при включении виндови если взломан вин+л то это поможет.
А естли тебе интересно то я знаю 2 спосоюа взлома с перезагрузкой.
1) С помощью ERD Commander'а.
2) Снятием батарейки с материнки и в последствии сброса пароля адменистратора а дальше ясно что делать.

[qweq]

я вот погуглил на тему "Как сделать форму прозрачой?" и вот что нашол

Код: Выделить всё

Option Explicit


'функции API
Private Declare Function GetWindowLong Lib "user32" _
Alias "GetWindowLongA" (ByVal hwnd As Long, _
ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" _
Alias "SetWindowLongA" (ByVal hwnd As Long, _
ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function SetLayeredWindowAttributes _
Lib "user32" (ByVal hwnd As Long, ByVal crKey As Long, _
ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long

'константы API
Private Const LWA_COLORKEY = &H1
Private Const LWA_ALPHA = &H2
Private Const GWL_EXSTYLE = (-20)

Private Const WS_EX_LAYERED = &H80000

'объявления программы
Private Const BLEND = 180 'значение прозрачности

Private Sub Form_Load()
Dim rc As Long
    'установить стиль окна
    rc = GetWindowLong(Me.hwnd, GWL_EXSTYLE)
    If Not (rc Or WS_EX_LAYERED) Then
        rc = rc Or WS_EX_LAYERED
    End If
    SetWindowLong Me.hwnd, GWL_EXSTYLE, rc
    'установить прозрачность
    SetLayeredWindowAttributes Me.hwnd, 0, _
    BLEND, LWA_ALPHA
End Sub


как сделать чтоб значение прозрачности задавалось в текст боксе или с помощью элемента Slider. Но так чтоб только форма была прозрачной а кнопки нет.

[iGrok]

Ну без перезагрузки никак. Так в том и дело программа будет запускаться при включении виндови если взломан вин+л то это поможет.
А естли тебе интересно то я знаю 2 спосоюа взлома с перезагрузкой.
1) С помощью ERD Commander'а.
2) Снятием батарейки с материнки и в последствии сброса пароля адменистратора а дальше ясно что делать.

Мне не то, чтобы интересно. Ты просто до сих пор несколько неубедителен. Либо до сих пор чего-то не понимаешь.

1) При чём тут батарейка от мамки я вообще не понял, речь вроде о виндовом пароле, а не пароле БИОСа.
2) Помимо ERD Commander'а есть ещё два десятка способов, но все они требуют загрузки с внешнего носителя, т.е. как минимум перезагрузки компа.
3) Если программа, как ты говоришь, будет появляться при старте винды, то что мне мешает (это при том, что виндовый пароль я уже только что снял при помощи, хотя бы, ERD) загрузиться в безопасном режиме, или с того же внешнего носителя и вычистить нафиг все следы нахождения твоей супер-пупер-мега-защиты на компе?

Что-то у тебя не стыкуется.

По поводу прозрачности - справа наверху есть кнопка "Поиск". Тема с прозрачностью "формы но не кнопок на ней" на форуме обсуждалась, поищи и найдёшь.

[qweq]

Ок тогда мне придётся бросить ету затею и забыть о ней . Попробую чтонибудь придумать новенького.

[JohnK]

Так а что ты хотел, я так и не понял? Задай принудительный логин в Windows, отключи CD-ROM, 3"5 FDD и тд. Поставь пороль в биосе и будет тебе счастье.
P.S. Самый безопасный компьютер, это тот, который зарыт на глубене 10 метров и отключен от всех кабелей

[qweq]

как открыть например word по нажатию кнопки ???

[iGrok]

как открыть например word по нажатию кнопки ???

Shell "winword.exe"

[qweq]

как сделать чтобы антивирусы не определяли мои программы как вирусы???