适合卧室的地砖效果图:请帮忙写一个加水印的。net程序
可以参考:http://www.9doit.com/Artielc/4379/ShowPost.aspx
http://www.cnblogs.com/helimin19/articles/61329.html
我只会asp,不太懂.net和php,所以请高手帮忙。谢谢。
Private Sub cmdLockWorkstation_Click()
Dim prev_value As Long
Dim wid As Long
Dim hgt As Long
cmdLockWorkstation.Enabled = False
cmdUnlockWorkstation.Enabled = True
cmdExit.Enabled = False
' Save the current size and position.
m_LastLeft = Left
m_LastTop = Top
m_LastWidth = Width
m_LastHeight = Height
' Put the form on top of everything including
' the task bar.
wid = Screen.Width / Screen.TwipsPerPixelX
hgt = Screen.Height / Screen.TwipsPerPixelY
SetWindowPos hwnd, HWND_TOPMOST, 0, 0, wid, hgt, 0
' Tell the system a screen saver is running.
SystemParametersInfo SPI_SCREENSAVERRUNNING, True, _
prev_value, 0
End Sub
To unlock the workstation, the program uses SystemParametersInfo to tell the system that no screen saver is running.
Private Sub cmdUnlockWorkstation_Click()
Dim prev_value As Long
cmdLockWorkstation.Enabled = True
cmdUnlockWorkstation.Enabled = False
cmdExit.Enabled = True
' Restore the size and position.
Move m_LastLeft, m_LastTop, m_LastWidth, m_LastHeight
' Tell the system no screen saver is running.
SystemParametersInfo SPI_SCREENSAVERRUNNING, False, _
prev_value, 0
End Sub