您的位置：程序门 -> .net技术 -> vb.net

50分请教下面代码的详细解释，需要每句的详细意思，小弟新学，希望指点，谢谢

[收藏此页] [打印本页]选择字色：背景色：字体：[大][中][小]

50分请教下面代码的详细解释，需要每句的详细意思，小弟新学，希望指点，谢谢[已结贴,结贴人:bimajia8]

发表于：2007-06-07 09:04:35 楼主

#region "詳細表示 "

'詳細表示ヘッダ表示
private sub logdetaildisp_header（byval l_strlog as string)

dim l_strkind as string
dim l_displog as string

dim l_icnt1, l_ilen as integer

try

'ログヘッダ情報の削除
m_strsecnetlog = l_strlog
l_displog = l_strlog
'ポートの削除
if g_blportdel then
mid（m_strsecnetlog, 1, 1) = "0 "
end if
'countの削除
mid（m_strsecnetlog, count, 4) = "0000 "

with l_displog
m_aycheadtext（0).text = .substring（0, 1)
for l_icnt1 = 1 to m_aycheadtext.length - 1
m_aycheadtext（l_icnt1).text = .substring（（l_icnt1 * 2) - 1, 2)
next
end with

'インデックスの算出
l_ilen = cint（ "&h " & m_strsecnetlog.substring（leng - 1, 4))
hscrollbar1.minimum = 29
hscrollbar1.maximum = （（（l_ilen * 2) + 2) - （m_aycdatatext.length * 2)) - 1

if menuitemkeepidx.checked = true then

'インデックスを保持する場合
if hscrollbar1.value > hscrollbar1.maximum then
hscrollbar1.value = hscrollbar1.maximum
if hscrollbar1.value mod 2 = 0 then
hscrollbar1.value = hscrollbar1.value + 1
end if
else
hscrollbar1.value = hscrollbar1.value
if hscrollbar1.value mod 2 = 0 then
hscrollbar1.value = hscrollbar1.value + 1
end if
end if

else

'インデックスを保持しない場合
hscrollbar1.value = 29
end if
catch err as exception
logwrite（en_logkind.en_error, "file :fmlog.vb method :logdetaildisp_header（) message : " & err.message)
end try

end sub

发表于：2007-06-07 09:23:101楼得分:0

没人帮助一下吗？

发表于：2007-06-07 09:23:212楼得分:0

哪一些不明白阿？

发表于：2007-06-07 09:41:103楼得分:0

都不理解，希望能详细解释下，谢谢

发表于：2007-06-07 09:51:244楼得分:0

#region "タリーテストにヘッダ転送 "

private sub transheadbtn_click（byval sender as system.object, byval e as system.eventargs) handles transheadbtn.click

dim l_strlog, l_strkind as string

try
if loglist.selectedindex = -1 then exit try

'ログの取得-取得log
l_strlog = cstr（loglist.items（loglist.selectedindex)) ' 读取选中的item值
l_strkind = l_strlog.substring（24, 2)

'ｓｅｃｎｅｔ電文でない場合、終了-读到不是电文处结束
if l_strkind <> "s " andalso _
l_strkind <> "r " andalso _
l_strkind <> "d " andalso _
l_strkind <> "t " then exit try ' 当item值的第25、26两位不是 "s "或 "r "或 "d "或 "t "时，退出

l_strlog = l_strlog.remove（0, 26) ' 删除值的前26位

g_ctesttool.settarryheader（l_strlog.substring（0, 29)) ' 把值的前29位设为保留头

catch err as exception
'エラーログ-error log
logwrite（en_logkind.en_error, "file :fmlog.vb method :clipboardbtn_click（) message : " & err.message)
end try
end sub

#end region

发表于：2007-06-07 10:03:375楼得分:0

楼上的，你给出的是我另一个问题的解释，汗，你贴措了

发表于：2007-06-07 10:32:356楼得分:0

顶下，
magicbacon（cannot help coding) （ ) 信誉：100 blog 加为好友 2007-06-07 09:51:24 得分: 0
上个帖子我已经结了，现在还有这个，这个明白意思也马上给分，等下还有别的代码问题需要解释，希望还能回答，谢谢

发表于：2007-06-07 11:00:537楼得分:0

没人帮忙的话我自己倒分了啊

发表于：2007-06-07 11:24:348楼得分:0

哪一些不明白阿？

发表于：2007-06-07 11:37:229楼得分:0

别急，我正在看。

我升星就看这一帖了。

发表于：2007-06-07 11:47:4910楼得分:0

还有个帖子，100分的，也是我发的，希望你也能看下

发表于：2007-06-07 11:49:0111楼得分:0

http://community.csdn.net/expert/topic/5586/5586321.xml?temp=.2827417

发表于：2007-06-07 12:52:3512楼得分:50

#region "詳細表示 "

'詳細表示ヘッダ表示-detailed indicate header indication
private sub logdetaildisp_header（byval l_strlog as string)

dim l_strkind as string
dim l_displog as string

dim l_icnt1, l_ilen as integer

try

'ログヘッダ情報の削除-delete log header information
m_strsecnetlog = l_strlog
l_displog = l_strlog
'ポートの削除-delete of port
if g_blportdel then
mid（m_strsecnetlog, 1, 1) = "0 "
' 把m_strsecnetlog的第一个字符归零
end if
'countの削除-delete count
mid（m_strsecnetlog, count, 4) = "0000 "
' 把m_strsecnetlog的第count个字符开始的4个字符归零

with l_displog
m_aycheadtext（0).text = .substring（0, 1)
' 在m_aycheadtext（0)中显示l_displog的第一个字符
for l_icnt1 = 1 to m_aycheadtext.length - 1
' 在从m_aycheadtext（1)开始的m_aycheadtext数组控件中显示l_displog的字符，每个控件中显示两个字符
m_aycheadtext（l_icnt1).text = .substring（（l_icnt1 * 2) - 1, 2)
next
end with

'インデックスの算出-calculate index
' 计算垂直方向scrollbar的值域
l_ilen = cint（ "&h " & m_strsecnetlog.substring（leng - 1, 4))
hscrollbar1.minimum = 29
hscrollbar1.maximum = （（（l_ilen * 2) + 2) - （m_aycdatatext.length * 2)) - 1

if menuitemkeepidx.checked = true then

'インデックスを保持する場合-when the index is kept
' 如果menuitemkeepidx选中那么调整垂直方向的scrollbar，使需要显示的item出现在可视位置
if hscrollbar1.value > hscrollbar1.maximum then
hscrollbar1.value = hscrollbar1.maximum
if hscrollbar1.value mod 2 = 0 then
hscrollbar1.value = hscrollbar1.value + 1
end if
else
hscrollbar1.value = hscrollbar1.value ' 这句话不知道什么意思
if hscrollbar1.value mod 2 = 0 then
hscrollbar1.value = hscrollbar1.value + 1
end if
end if

else

'インデックスを保持しない場合-when the index is not kept
' 如果menuitemkeepidx未选中那么使垂直方向的scrollbar停留在最上方
hscrollbar1.value = 29
end if
catch err as exception
' 错误记录
logwrite（en_logkind.en_error, "file :fmlog.vb method :logdetaildisp_header（) message : " & err.message)
end try

end sub

#end region

发表于：2007-06-07 12:54:2313楼得分:0

您如果稍微解释一下这段代码是做什么用的，我可能会看得容易一点。

发表于：2007-06-07 13:16:4614楼得分:0

我在看，一会结贴，恭喜升星

下一篇：如何遍历窗体上的控件并按type给它定具体风格
上一篇：小弟刚学vb.net,请帮忙解释下下面代码，明白了马上给分

其他资讯