[VB] StatusBar 클래스 : 패널 추가하기

icodebroker VB 2024-06-18

■ StatusBar 클래스에서 패널을 추가하는 방법을 보여준다.

▶ 예제 코드 (VB)


Dim pPositionXPanel As Panel
Dim pPositionYPanel As Panel

pStatusBar.Panels.Clear

pStatusBar.Panels.Add 1, "PositionX"

Set pPositionXPanel = pStatusBar.Panels(1)

pPositionXPanel.Text = "X 좌표 : 100"

pStatusBar.Panels.Add 2, "PositionY"

Set pPositionYPanel = pStatusBar.Panels(2)

pPositionYPanel.Text = "Y 좌표 : 100"

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

Dim pPositionXPanel As Panel

Dim pPositionYPanel As Panel

pStatusBar.Panels.Clear

pStatusBar.Panels.Add 1, "PositionX"

Set pPositionXPanel = pStatusBar.Panels(1)

pPositionXPanel.Text = "X 좌표 : 100"

pStatusBar.Panels.Add 2, "PositionY"

Set pPositionYPanel = pStatusBar.Panels(2)

pPositionYPanel.Text = "Y 좌표 : 100"

CONTROL VB