是这段代码有问题Dim hc1 As New HttpClient("http://107.1618.20:12636/que1.htm")
hc1.FormData.Add("name", _yh)
hc1.FormData.Add("pswrd", _yhk)
Dim dt1 As DataTable = hc1.GetDataTable()
If hc1.rCookies.ContainsKey("error") Then
MessageBox.show(hc1.rCookies("error"), "错误" , MessageBoxButtons.OK, MessageBoxIcon.Warning)
Return
ElseIf dt1 IsNot Nothing Then
_glwgb = dt1
Else
MessageBox.Show("接收DataTable失败,原因未知!", "错误" , MessageBoxButtons.OK , MessageBoxIcon.Warning)
End If
Dim xzpyxy As WinForm.PictureViewer = e.Form.Controls("PictureViewer1")
Dim xzpyxy1 As String = xzpyxy.SelectedItem
xzpyxy.ClearCommand.Visible = False
xzpyxy.StretchCommand.Visible = False
xzpyxy.SaveAsCommand.Visible = False
加好友 
发短信
Post By：2023/4/10 11:43:00 [只看该作者]
