1,451
社区成员
发帖
与我相关
我的任务
分享
Private Sub Form_Load()
Frame1.Visible = False
End Sub
Private Sub Label1_Click(Index As Integer)
Text1 = Label1(Index).Caption
Frame1.Visible = False
End Sub
Private Sub Text1_GotFocus()
Dim i As Integer
Frame1.Left = Text1.Left + 30
Frame1.Top = Text1.Top + Text1.Height
Frame1.Visible = True
For i = 0 To 4
Label1(i) = (i + 1) & "test"
Next i
End Sub
Private Sub Form_Load()
With MSHFlexGrid1
.Rows = 1
.Cols = 5
.FixedRows = 0
.FixedCols = 0
.GridColor = vbWhite
.Height = 300
.Width = 2000
.RowHeight(0) = 300
.ColWidth(-1) = 400
.ScrollBars = flexScrollBarNone
For i = 0 To 4
.Col = i
.CellAlignment = 1
.Text = i + 1 & " " & ChrW(-100 - i)
Next
End With
End Sub