以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]代码黏贴  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=94257)

--  作者:苏州老街
--  发布时间:2016/12/20 9:24:00
--  [求助]代码黏贴
老师好;

图片点击可在新窗口打开查看此主题相关图片如下:图像 1.png
图片点击可在新窗口打开查看

--  作者:有点色
--  发布时间:2016/12/20 9:41:00
--  

关闭项目,删除bin文件夹,重新打开重新粘贴看看。

 

如果不行,把代码发上来。


--  作者:苏州老街
--  发布时间:2016/12/20 11:09:00
--  
老师,下面代码无法黏贴。  
<DllImport("user32.dll", EntryPoint := "SendMessage")> _
Public Function SendMessage(hWnd As IntPtr, wMsg As Integer, wParam As Integer, lParam As Integer) As Integer
End Function
\'获取滚动条位置  
<DllImport("user32")> _
Public Function GetScrollPos(hwnd As IntPtr, nBar As Integer) As Integer
End Function
\'设置滚动条位置  
<DllImport("user32.dll")> _
Public Function SetScrollPos(hWnd As IntPtr, nBar As Integer, nPos As Integer, bRedraw As Boolean) As Integer
End Function

Public Const EM_LINESCROLL As Integer = &Hb6

--  作者:有点色
--  发布时间:2016/12/20 11:34:00
--  
 我测试并没有问题。你卸载重新安装一下foxtable看看。
--  作者:逛逛
--  发布时间:2016/12/20 11:40:00
--  
把代码导出来,看看是否已经有了
--  作者:苏州老街
--  发布时间:2016/12/20 13:18:00
--  
老师,狐表系统重装也没有用。
--  作者:苏州老街
--  发布时间:2016/12/20 13:42:00
--  
老师,窗口突然为有这样的错误提示。


.NET Framework 版本:2.0.50727.3053
Foxtable 版本:2016.7.29.1
错误所在事件:窗口,系统,AfterLoad
详细错误信息:
Method not found: \'Void UserCode.WebBrowser1_DocumentCompleted(System.Object, System.Windows.Forms.WebBrowserDocumentCompletedEventArgs)\'.


--  作者:有点色
--  发布时间:2016/12/20 14:57:00
--  
关闭项目,删除项目的bin文件夹,重新打开重新
--  作者:苏州老街
--  发布时间:2016/12/20 17:43:00
--  
以下是引用苏州老街在2016/12/20 11:09:00的发言:
老师,下面代码无法黏贴。  
<DllImport("user32.dll", EntryPoint := "SendMessage")> _
Public Function SendMessage(hWnd As IntPtr, wMsg As Integer, wParam As Integer, lParam As Integer) As Integer
End Function
\'获取滚动条位置  
<DllImport("user32")> _
Public Function GetScrollPos(hwnd As IntPtr, nBar As Integer) As Integer
End Function
\'设置滚动条位置  
<DllImport("user32.dll")> _
Public Function SetScrollPos(hWnd As IntPtr, nBar As Integer, nPos As Integer, bRedraw As Boolean) As Integer
End Function

Public Const EM_LINESCROLL As Integer = &Hb6


--  作者:苏州老街
--  发布时间:2016/12/20 17:45:00
--  
老师,我把狐表系统重装也没有用。