lyangl210152的个人资料 - RAT

lyangl210152 lyangl210152

关注数: 0 粉丝数: 5 发帖数: 22 关注贴吧数: 2

收货地址收货地址让选择省份不知道为什么点半天也没反应啊

win7 无法获取控件的窗口句柄和不支持无窗口的 ActiveX 控件我在vs2012 中用vb.net建一个很简单的工程，就一个主窗体，主窗体上放了一个用vb6写的控件，该控件已经注册，在我的开发环境中能编译后运行成功,弹出主窗体，但是拷贝到其他电脑(win7操作系统,开发环境也是win7)就会报无法获取“***"控件的窗口句柄,不支持无窗口的ActiveX控件错误，我在其他电脑上的控件也已经注册，请问是什么原因。

滚动条和光标问题有没有一种方法可以实现，datagridview里，光标随着滚动条动？比如说一共有22条数，每一页显示10条，第一页的时候，光标在第一行，当我下来滚动条时，比如说，现在显示的是5到15条数据，那么我的光标也跟着显示到当前画面的第一行，就是第5条数上。谢谢啦

vb6转换vb.net vb6转换成vb.net 其中 gosub 。。。 return 语句不可用。请问，vb.net中要实现一样的效果怎么修改。下面是部分代码 If Dir(w_IniFileNm) <> "" Then Kill w_IniFileNm DoEvents Call Sleep(3000) GoSub SUB_IniOut1 For j = 1 To 10 GoSub SUB_FielNmGet GoSub SUB_IniFileSet ReDim w_JnlFL(0) DoEvents Next GoSub SUB_IniOut2 FncJnlDateIdxWrite = "OK" DoEvents Call Sleep(2000) Exit Function *-------------------------------- SUB_IniOut1: DoEvents rcd = FncComIniWrite(w_IniFileNm, _ "MAKE_DATE_SECTION", _ "SAKUSEIBI", _ Format(Now, "YYYYMMDD") & Format(Now, "HHNNSS")) If rcd <> 0 Then W_MsgStr = Chr(10) & "SUB_IniFileOut:レコードの书込みに失败(SUO6640.ini)" GoTo ERR_PROC End If w_DateFrom = W_From rcd = FncComIniWrite(w_IniFileNm, _ "MAKE_DATE_SECTION", _ "YOKYU_HANI_FROM", _ w_DateFrom) w_DateFrom = "" If rcd <> 0 Then W_MsgStr = Chr(10) & "SUB_IniFileOut:レコードの书込みに失败(SUO6640.ini)" GoTo ERR_PROC End If w_DateTo = W_To rcd = FncComIniWrite(w_IniFileNm, _ "MAKE_DATE_SECTION", _ "YOKYU_HANI_TO", _ w_DateTo) w_DateTo = "" If rcd <> 0 Then W_MsgStr = Chr(10) & "SUB_IniFileOut:レコードの书込みに失败(SUO6640.ini)" GoTo ERR_PROC End If rcd = FncComIniWrite(w_IniFileNm, _ "STORE_SECTION", _ "STORE_CD", _ W_TenCD) If rcd <> 0 Then W_MsgStr = Chr(10) & "SUB_IniFileOut:レコードの书込みに失败(SUO6640.ini)" GoTo ERR_PROC End If rcd = FncComIniWrite(w_IniFileNm, _ "STORE_SECTION", _ "STORE_NM", _ W_TenName) If rcd <> 0 Then W_MsgStr = Chr(10) & "SUB_IniFileOut:レコードの书込みに失败(SUO6640.ini)" GoTo ERR_PROC End If rcd = FncComIniWrite(w_IniFileNm, _ "MAKE_FILE_SECTION", _ "FILE_COUNT_ALL", _ W_FileSu) *このｾｸｼｮﾝが前方にくるように事前に作成しておく。 If rcd <> 0 Then W_MsgStr = Chr(10) & "SUB_IniFileOut:レコードの书込みに失败(SUO6640.ini)" GoTo ERR_PROC End If Return SUB_IniOut2: DoEvents rcd = FncComIniWrite(w_IniFileNm, _ "EOF_SECTION", _ "END_TIME", _ Format(time, "hhnnss")) *このｾｸｼｮﾝが终端になるようにする。 If rcd <> 0 Then W_MsgStr = Chr(10) & "SUB_IniFileOut:レコードの书込みに失败(SUO6640.ini)" GoTo ERR_PROC End If rcd = FncComIniWrite(w_IniFileNm, _ "MAKE_DATE_SECTION", _ "SAKUSEI_HANI_FROM", _ Ini_DateFrom) If rcd <> 0 Then W_MsgStr = Chr(10) & "SUB_IniFileOut:レコードの书込みに失败(SUO6640.ini)" GoTo ERR_PROC End If rcd = FncComIniWrite(w_IniFileNm, _ "MAKE_DATE_SECTION", _ "SAKUSEI_HANI_TO", _ Ini_DateTo) If rcd <> 0 Then W_MsgStr = Chr(10) & "SUB_IniFileOut:レコードの书込みに失败(SUO6640.ini)" GoTo ERR_PROC End If rcd = FncComIniWrite(w_IniFileNm, _ "MAKE_FILE_SECTION", _ "FILE_COUNT_ALL", _ W_FileSu) If rcd <> 0 Then W_MsgStr = Chr(10) & "SUB_IniFileOut:レコードの书込みに失败(SUO6640.ini)" GoTo ERR_PROC End If rcd = FncComIniWrite(w_IniFileNm, _ "MAKE_FILE_SECTION", _ "FILE_SIZE_ALL", _ W_BiteSu) If rcd <> 0 Then W_MsgStr = Chr(10) & "SUB_IniFileOut:レコードの书込みに失败(SUO6640.ini)" GoTo ERR_PROC End If Return

1 下一页