tuan.vn.com
Thành viên mới
- Tham gia
- 14/12/12
- Bài viết
- 8
- Được thích
- 0
Em có đoạn code sau bằng VBA mà sang VB.net k biết khai báo sao cho chuẩn, tiền bối nào am hiểu xin chỉ giúp với ạ, e xin chân thành cám ơn
Public Type DLTHONGKE
Dang As Integer
SHieu As String
d As Double
KT As Double
QC As String
L1 As Long
L2 As Long
L3 As Long
L4 As Long
L5 As Long
DAI As Variant
SL As Integer
SCK As Integer
x As Double
y As Double
Handle As String
End Type
Public TKS() As DLTHONGKE
sub ABC_test
SoDT = SoDT + 1
ReDim Preserve TKS(SoDT)
TKS(SoDT).x = 123
TKS(SoDT).y = 321
TKS(SoDT).Handle = abc3
TKS(SoDT).Dang = 1
TKS(SoDT).SHieu = 2
TKS(SoDT).d = 3
TKS(SoDT).DAI = 4
TKS(SoDT).SL = 5
end sub
Public Type DLTHONGKE
Dang As Integer
SHieu As String
d As Double
KT As Double
QC As String
L1 As Long
L2 As Long
L3 As Long
L4 As Long
L5 As Long
DAI As Variant
SL As Integer
SCK As Integer
x As Double
y As Double
Handle As String
End Type
Public TKS() As DLTHONGKE
sub ABC_test
SoDT = SoDT + 1
ReDim Preserve TKS(SoDT)
TKS(SoDT).x = 123
TKS(SoDT).y = 321
TKS(SoDT).Handle = abc3
TKS(SoDT).Dang = 1
TKS(SoDT).SHieu = 2
TKS(SoDT).d = 3
TKS(SoDT).DAI = 4
TKS(SoDT).SL = 5
end sub