반응형
ㅇ키 이벤트 잡아오기
바디에 이벤트를 달아준다.
<body onKeyPress="getKeyPress">
Sub getKeyPress
msgbox window.event.Keycode
if (window.event.Keycode == 27) Then
Call fn_my
End If
End Sub
ㅇ어레이
1. 고정어레이
Dim arr
arr = Array("a","b","c")
2. 동적 어레이
Set dArr = CreateObject("System.Collections.ArrayList")
dArr.Add "hello"
dArr.Count
dArr.RemoveAt dArr.Count - 1
dArr(1)
3. 분할 생성 어레이
txt= "a,b,c"
arr = Split(txt, ",")
For Each item in arr
msgbox item
Next
ㅇhtml 제어
- 기본
tmpDiv.style.visibility = "hidden"
tmpDiv.style.visibility = "visible"
tmpDiv.innerHTML = "멍멍"
tmpDiv.style.left = "50%"
tmpDiv.style.width = "50%"
tmpDiv.style.textalign = "left"
- Div 동적 추가
Set newDiv = document.createElement("div")
With newDiv
.Id = "hello"
End With
newDiv.margintop = "20px"
mainDiv.appendChild newDiv
- 테이블
rowCnt = 0
tblRowCnt = tbl.rows.length
Do While rowCnt < tblRowCnt
tbl.deleteRow(0)
rowCnt = rowCnt + 1
Loop
Set tblRow = tbl.insertRow()
Set tblCell = tblRow.insertCell()
tblCell.style.textalign = "left"
tblCell.style.verticalAlign = "top"
tblCell.innerHTML = "멍멍"
tblCell.style.color = "#d1d1d1"
바디에 이벤트를 달아준다.
<body onKeyPress="getKeyPress">
Sub getKeyPress
msgbox window.event.Keycode
if (window.event.Keycode == 27) Then
Call fn_my
End If
End Sub
ㅇ어레이
1. 고정어레이
Dim arr
arr = Array("a","b","c")
2. 동적 어레이
Set dArr = CreateObject("System.Collections.ArrayList")
dArr.Add "hello"
dArr.Count
dArr.RemoveAt dArr.Count - 1
dArr(1)
3. 분할 생성 어레이
txt= "a,b,c"
arr = Split(txt, ",")
For Each item in arr
msgbox item
Next
ㅇhtml 제어
- 기본
tmpDiv.style.visibility = "hidden"
tmpDiv.style.visibility = "visible"
tmpDiv.innerHTML = "멍멍"
tmpDiv.style.left = "50%"
tmpDiv.style.width = "50%"
tmpDiv.style.textalign = "left"
- Div 동적 추가
Set newDiv = document.createElement("div")
With newDiv
.Id = "hello"
End With
newDiv.margintop = "20px"
mainDiv.appendChild newDiv
- 테이블
rowCnt = 0
tblRowCnt = tbl.rows.length
Do While rowCnt < tblRowCnt
tbl.deleteRow(0)
rowCnt = rowCnt + 1
Loop
Set tblRow = tbl.insertRow()
Set tblCell = tblRow.insertCell()
tblCell.style.textalign = "left"
tblCell.style.verticalAlign = "top"
tblCell.innerHTML = "멍멍"
tblCell.style.color = "#d1d1d1"
반응형
댓글