寒秋 |
2008-01-14 09:45 |
如何将Delphi的数据类型转化为Vb数据类型?
type EV_VALUE = (string_value, real_value, long_value, string_ptr);
type APWC_EVALPB = {$ifdef WIN32} packed {$endif} record ev_type: Integer; case EV_VALUE of string_value: (string_value: THandle) ; real_value: (real_value: Double); long_value: (long_value : LongInt); string_ptr: (string_ptr: PChar); end;
type APWC_EVALPB_PTR = ^APWC_EVALPB;
type APWC_VARPB = {$ifdef WIN32} packed {$endif} record var_name: PChar; at_icon_name: PChar; at_icon_id: LongInt; flags: UINT; eval: APWC_EVALPB; end;
type APWC_VARPB_PTR = ^APWC_VARPB;
implementation 这是Delphi中的数据类型,不知如何转化为Vb可以使用的数据类型? |
|