如何把下面的几行代码转到D来，谢谢
vb
1. ttext = StrConv(SSTR, 128)
2. FORM1.HORPIC(0).Width
Form1.VerPic(0).Height
3. Unload FORM1.VERPIC(I)
4. Load FORM1.HORPIC(I)
5. Wnd = Screen.ActiveForm.hwnd
6. FORM1.Picture1.Picture = Clipboard.GetData()
谢谢
[解决办法]
5 GetForegroundWindow
6 Image1.Picture.LoadFromClipboardFormat(cf_BitMap,ClipBoard.GetAsHandle(cf_Bitmap),0)
[解决办法]
ttext = StrConv(SSTR, 128)
把sstr由Unicode转成系统的缺省码
FORM1.HORPIC(0).Width 取窗体的设计宽度
3. Unload FORM1.VERPIC(I)
4. Load FORM1.HORPIC(I) 重载?
[解决办法]
Unload Form1.VerPic(i) 和 Load Form1.HorPic(i) 你先找到Unload Load 过程看看，毕竟这里是DELPHI区不是VB区，比较偏门的东西知道的人少
[解决办法]
主要是看不懂太复杂的VB程序。
你先解释一下，然后大家给你想办法。
