(300分求解双窗难题)请songyaowu接分

Question

原问题链接:
http://community.csdn.net/Expert/topic/3668/3668470.xml?temp=.1791651解答答案:
Private Const GWL_EXSTYLE = (-20)
Private Const WS_EX_TOOLWINDOW = &H80
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As LongPrivate Sub Command1_Click()
    SetWindowLong Picture1.hwnd, GWL_EXSTYLE, WS_EX_TOOLWINDOW
    SetParent Picture1.hwnd, 0
    Picture1.Visible = True
End SubPrivate Sub Form_Load()
    ' 此属性可以在设计时设置
    Picture1.Visible = False
End SubPrivate Sub Form_Unload(Cancel As Integer)
    SetParent Picture1.hwnd, Me.hwnd
End Sub
很是感到遗憾,CSDN中规定只能多发一贴给分.请songyaowu接分

Answer 1

哦,不知道呀,但发贴时它上面规定只能给0-100分.而且这个贴子最大只能加到100分,也许和本人的等级有关系.只能再发一贴接分的规定是CSDN上的版主定的.我原来发的那两个贴也删除了.遗憾,剩下的100分不能再给....
下次还是要请你多多帮助哦.