Private Sub Commandbutton1
⚡ 👉🏻👉🏻👉🏻 INFORMATION AVAILABLE CLICK HERE 👈🏻👈🏻👈🏻
ActiveSheet.Lines.Add 20, 20, 220, 20
ActiveSheet.Lines.Add 20, 40, 20, 140
ActiveSheet.Lines.Add 20, 180, 200, 110
ActiveSheet.Rectangles.Add 140, 100, 401, 50
ActiveSheet.Rectangles.Add 160, 50, 240, 100
Программа «Circle» демонстрирует использование графического объекта Oval.
Интерфейс c пользователем реализован в виде форм Form1
Рисунок 8.5. - Интерфейс программы «Circle»
Рисунок 8.6. - Результат программы «Circle»
ActiveSheet.Ovals.Add 50, 25, 50, 50
ActiveSheet.Ovals.Add 50, 25, 50, 50
ActiveSheet.Ovals.Add 100, 50, 50, 100
ActiveSheet.Ovals.Add 30, 150, 180, 50
1.Составить программу построения осей координат x и y и фигуры в соответствии с номером вашего варианта. Координаты вершин фигуры выбрать самостоятельно.
Программа «График» с помощью цикла со счетчиком и метода Ovals.Add строит график функции y=ax2 + bx + c (a=1, b=-2, c=-3). Кроме самого графика с помощью метода Lines.Add изображаются оси координат.
Интерфейс программы реализуется на активном листе в виде формы размером 300х300:
Рисунок 10.1. - Интерфейс программы «График»
Private Sub CommandButton1_Click1()
ActiveSheet.Ovals.Add 112+40*X, 150-30*Y, 5, 5
ActiveSheet.Lines.Add 0, 150, 300, 150
ActiveSheet.Lines.Add 112, 0, 112, 300
1. Составить программу построения графика функции у=f(x) на отрезке [a, b] при изменении x с шагом dx (согласно номеру Вашего варианта). Масштабы графика по осям координат выбрать самостоятельно.
Понравился сайт? Поделись им с друзьями:
To get replies by our experts at nominal charges, follow this link to buy points and post your thread in our Commercial Services forum! Here is the FAQ for this forum.
HOW TO ATTACH YOUR SAMPLE WORKBOOK:
Unregistered Fast answers need clear examples. Post a small Excel sheet (not a picture) showing realistic & representative sample data WITHOUT confidential information (10-20 rows, not thousands...) and some manually calculated results. Just before posting, scroll down to GO ADVANCED, click, and then scroll down to MANAGE ATTACHMENTS and click again. Now follow the instructions at the top of that screen.
New Notice for experts and gurus:
Recently, it has become clear that some members (especially newer members) have been confused by "mixed messages" coming from non-Moderators. They are unclear how to react to such requests. Accordingly, we are now asking all members NOT to attempt to moderate threads. From now on, that will be done by forum Moderators only. We continue to encourage the reporting of posts/threads where cross-posting has not been declared, where measures to bypass sheet security are requested, or where abusive language is being used. Generally speaking, it it NOT necessary to report poor titles, spam, lack of code tags, etc, as these are easily spotted by forum Moderators. From now on, those posts made by non-Mods that are attempting to carry out Moderation activities will be deleted.
Sheet1 has a commandbutton. When clicked, a form containing one label, an Ok
button and a Cancel button, loads.
I cannot get the buttons to fire the events!
In sheet1 I have:
Private Sub CommandButton1_Click()
Call HandleTheForms
End Sub
In module1 I have:
Private Sub HandleTheForms()
Frm_Initial.Show
End Sub
Behind the form, I have:
Private Sub Cb1Ok_Click()
MsgBox "Success with Ok_Click"
End Sub
Private Sub Cb2Cancel_Click()
MsgBox "Success with Cancel_Click"
Exit Sub
End Sub
Help, feel like I've forgotten what little I thought I knew.
Regards.
Change the Private Sub HandleTheForms() to Public Sub HandleTheForms().
That should work.
*** Sent via Developersdex http://www.developersdex.com ***
Vasant Nanavati 04:06 PM 05-09-2005
Works fine for me, except that the sub in the module needs to be public to
be called from the worksheet using your syntax.
--
Vasant
"Stuart" wrote in message
news:OBNX5tMVFHA.3868@TK2MSFTNGP14.phx.gbl...
> Sheet1 has a commandbutton. When clicked, a form containing one label, an
Ok
> button and a Cancel button, loads.
> I cannot get the buttons to fire the events!
>
> In sheet1 I have:
> Private Sub CommandButton1_Click()
> Call HandleTheForms
> End Sub
>
> In module1 I have:
> Private Sub HandleTheForms()
> Frm_Initial.Show
> End Sub
>
> Behind the form, I have:
> Private Sub Cb1Ok_Click()
> MsgBox "Success with Ok_Click"
> End Sub
>
> Private Sub Cb2Cancel_Click()
> MsgBox "Success with Cancel_Click"
> Exit Sub
> End Sub
>
> Help, feel like I've forgotten what little I thought I knew.
>
> Regards.
>
>
Hi,
- By "Behind the Form" you mean within the Frm_Initial code module, don't you?
- are you really sure the buttons are called Cb1Ok and Cb2Cancel, and not
just cbOK and cbCancel, or any other names?
Regards,
Sébastien
"Stuart" wrote:
> Sheet1 has a commandbutton. When clicked, a form containing one label, an Ok
> button and a Cancel button, loads.
> I cannot get the buttons to fire the events!
>
> In sheet1 I have:
> Private Sub CommandButton1_Click()
> Call HandleTheForms
> End Sub
>
> In module1 I have:
> Private Sub HandleTheForms()
> Frm_Initial.Show
> End Sub
>
> Behind the form, I have:
> Private Sub Cb1Ok_Click()
> MsgBox "Success with Ok_Click"
> End Sub
>
> Private Sub Cb2Cancel_Click()
> MsgBox "Success with Cancel_Click"
> Exit Sub
> End Sub
>
> Help, feel like I've forgotten what little I thought I knew.
>
> Regards.
>
>
>
Powered by vBulletin® Version 4.1.8
Copyright © 2021 vBulletin Solutions, Inc. All rights reserved.
Search Engine Friendly URLs by vBSEO 3.6.0 RC 1
Forum Modifications By Marco Mamdouh
Film Naked And Lustful 1976
Medical Voyeur Video Cam
The Halloween Female Fuck
Sluts And Coconuts 2021 Porno Movies
Fingering In Ass Porn
Private sub commandbutton1_click() — Ин…
Private Sub CommandButton1_Click() — Ст…
Private Sub CommandButton1_Click() — Ст…
Simple form question:Private Sub CommandButton1_Click ...
Технология выполнения. Private Sub CommandButton1_Click()
UserForm CommandButton in Excel VBA - Explained with Exa…
Private Sub CommandButton1_Click()// Про…
Private Sub CommandButton1_Click() — Ме…
Подскажите : Private Sub CommandButton1_Click()
Private Sub Commandbutton1
