(*´д`*)ｱﾊｧ… VB初心者質問スレ Part22
レス数が950を超えています。1000を超えると書き込みができなくなります。
0973デフォルトの名無しさん
NGNGうまいやり方は知らないけど
Label1.Caption = getpro(Text1, "Top")
などとして読み込める関数でも作っては？
Public Function getpro(ob As Object, pro As String)
Dim Ret
Select Case pro
Case "Top"
Ret = ob.Top
Case "Left"
Ret = ob.Left
Case Else
Ret = ""
End Select
getpro = Ret
End Function
レス数が950を超えています。1000を超えると書き込みができなくなります。