... 59
11 .LàmviệcvớiUserFormvàcácthànhphầnđiềukhiển 61
11 .1. Các vấn đề chung 61
11 .1. 1. Tạo UserForm và các thành phần điều khiển trong VBA IDE 63
11 .1. 2. Các thuộc tính của UserForm và các thành phần điều khiển. 64
11 .1. 3. Các phương ... rõ trong cách thức tạo ra từng
thành phần trong hồ sơ thiết kế. Ví dụ, trong thiết kế cầu, phần phân tích kết cấ...
... C
C
H
H
Ư
Ư
Ơ
Ơ
N
N
G
G
I
I
V
V
:
:
L
L
Ậ
Ậ
P
P
T
T
R
R
Ì
Ì
N
N
H
H
T
T
R
R
Ê
Ê
N
N
M
M
I
I
C
C
R
R
O
O
S
S
O
O
F
F
T
T
E
E
X
X
C
C
E
E
L
L
11 1
1. Khởi động VBAIDE. Trong trình đơn Tools, chọn mục MacroÖVisual Basic Editor;
2. Trong trình đơn Insert, chọn mục Module để tạo một ... tính này cũng tương tự như khi chọn từ trình đơn
FormatÖSheetÖHide/Unh...
... ( =1) của nó lại trong bộ nhớ. Do đó đến lần chạy thứ hai, biến
B
được tạo mới sẽ nhận giá trị là
B=B +1= 0 +1= 1, còn biến stA do vẫn tồn tại từ lần trước nên giá
trị của nó là
stA=stA +1= 1 +1= 2. ...
C
C
H
H
Ư
Ư
Ơ
Ơ
N
N
G
G
I
I
I
I
I
I
:
:
C
C
Ơ
Ơ
B
B
Ả
Ả
N
N
V
V
Ề
Ề
N
N
G
G
Ô
Ô
N
N
N
N
G
G
Ữ
Ữ
L
L
Ậ
Ậ
P
P
T
T
R
R
Ì
Ì
N
N
H
H
V
V
I
I
S
S
U
U
A
A...
...
Dim strRe1 As String, strRe2 As String, strre3 As String
Open “C:\file1.txt” For Input As 1
Line Input #1, strRe1
Line Input #1, strRe2
Line Input #1, strRe3
Debug.Print strRe1, strRe2, ... bộ dữ liệu trong tập tin C:\File1.txt:
Dim strRe As String
Open "C:\file1.txt" For Input As #1
Do While Not EOF (1)
Input #1, strRe
Debug.Print strRe
Loop
Close #1
13 .2.3....
... Combo Box sẽ hiển thị các cấp đường thiết kế, và khi lựa chọn một cấp đường, giá
trị vận tốc thiết kế tương ứng sẽ được gán cho ô. Trình tự thực hiện như sau:
1. Tạo mới Combo Box trên worksheet, ...
Tham
chiếuthưviệnmởrộngcủachươngtrìnhExcel
1. Khởi động chương trình AutoCAD Ö Khởi động VBAIDE trong AutoCAD bằng cách
nhấn tổ hợp phím ALT+F 11.
15 2
Để đ...
... quản lý Macro trong AutoCAD.
10 . Hiển thị VBAIDE, là nơi sẽ thực hiện quá trình thiết kế mã lệnh và giao diện của chương
trình.
2.2 .1. Tạo m
ới, Mở và Lưu dự án VBA
19 4
13 . Trong màn hình ... trong giáo trình môn học
“Lập trình trên ứng dụng nền”.
2. Quản lý dự án VBA trong AutoCAD
2 .1. Dự án VBA trong AutoCAD
Không giống như trong Excel, chỉ có một loại dự á...
... points(9) = 3: points (10 ) = 2: points (11 ) = 0 ' Toạ độ điểm 4
points (12 ) = 4: points (13 ) = 4: points (14 ) = 8 ' Toạ độ điểm 5
' Tạo đường đa tuyến 3D trong không gian mô hình ... các điểm góc
point1(0) = 1. 3: point1 (1) = 7.8: point1(2) = 0
point2(0) = 13 .7: point2 (1) = -2.6: point2(2) = 0
‘ Thực hiện phương thức ZoomWindow
ZoomWindow point1, poi...
... trình tự thiết lập.
10 00 Giá trị kiểu String.
10 03 Tên của Layer.
10 10 Toạ độ 3D của một điểm
10 40 Giá trị của Double.
10 71 Giá trị kiểu Interger.
Ví dụ sau sẽ tạo một đường thẳng trong ... ' Định nghĩa các điểm trên đường kích thước
P1 (0) = 5#: P1 (1) = 5#: P1 (2) = 0#
P2 (0) = 10 #: P2 (1) = 8#: P2 (2) = 0#
location(0) = 6.5: location (1) = 8#: location(2)...