VB程序员博客
Archive for 07月, 2008
07 17th, 2008
就是ADODC控件的教程,我在网上找也找不到啊,快急死了
我没有MSDN啊?在网上有吗?
http://ftp.yaosansi.com/blog/Chmhelp/ADO%202.5%20Microsoft%20ADO%202.5%20%b3%cc%d0%f2%d4%b1%b2%ce%bf%bc.chm
复制后用迅雷下载吧
很多,baidu
…
MSDN google
ADODC不怎么好用ado吧
用专门的帮助文档
07 17th, 2008
准备办个简单的英语对话学习班.
聘任 yaqi 来做英文老师.
要交学费–可用分
交作业
考试
以一月为期,第一名,偶来给奖励.实物奖励哈,暂时构想就这些.
有兴趣者,先来个初级报名跟跟.
我看看有多少人>10人就办
支持~~~，观望~~
嘿呀,嘿嘿~~
我来也~~
想报个名,但是E文基础太太太太太差,不知道面向什么等级的E文学生?
能算我一个否./
哈哈我报名
可以哦 只要你保证按时上课交作业哈
英语最好是没基础开始,哈哈
yaqi是个不错的老师呢
我现在的初步的打算是,谁最后第一名我就跟美国寄个礼物过来
不过要是我自己第一,哇卡卡，就要yaqi同学从英国给我寄个礼物了
我也来顶下
我也报名，看看能否让我的英语水平0的突破。
其实我也想学学。
支持 ，早日摆脱英语盲 ^^!
强烈支持，我做教导主任，看谁不听话。
我也报名，学费有的是
怎么总是天南海北的？
一会儿美国，一会儿英国的
不行，有点儿乱，得屡一屡
等我屡清了，我也报下名
自从过了四级就没怎么写过英语单词了
难道楼主要去美国了？
哇哈哈陈老大都来了~~看来雅奇会一下子多了N多“弟子”了
貌似理清了，报名，就当个助理教练吧，哈哈
现在已报名暂9人
daisy8675
myjian
fvflove
chenhui530
Modest
dsj23
jonys123
zzyong00
datou985
老师 clear_zero
教导主任: TechnoFantasy
教导主任主任负责最后礼品的采购工作
好了,老大你出血吧,哦哈哈,这可是你自己找的
你想为最后的礼品买单吗?哇卡卡,想买单就做助理吧
强烈支持
狂顶
龙老大呀~~~~~~~~~~~~~~~~~~~~~~~~~终于在地球出现一次了…………..
汗
来的少一些
大家还好吧
看样子那天专门发个帖子絮絮旧了
M1的号召，诸位老大哪有不眷顾之理？
老龙，想死我了。哇咔咔
老龙做副教导主任吧，职务是协助教导主任办理采购事宜。
买单也无所谓
只要真有人能从中学到东西就好
带我不 我报名
报名！
厄。。。。 只是。。不知道学费多少
只有520可用分。。。 -_-
本来有1020分的。。。
前几天500分压本届奥运会中国金牌数最多 -_-!
我觉得大部分人过了四六级了，英语很好了。只要还记得用到就不会忘记
如果在外企的更是每天都用了
我英文水平按照听说读写依次下降
写最差，我写技术文档总是很担心对方看不明白，我的文档都写的比较繁复。一般包括流程图，部分细节流程图，文字解释，如果还不成就加屏幕截图。写那些弹出的对话框信息也没啥信心。
读的时候要是心浮气躁就读不进去，踏实下来就没什么问题。主要是我的词汇量小，还好有Babel Fish
听说没有什么问题，环境锻炼的。说上面就是表达清楚了就好了，口音什么的根本不用管。
现在看下来我觉得两个东西比较难 1细节描写(动作，表情，就好像中文中的那些细节描写) 2幽默。我听他们的Stand Up(类似中国的单口相声)感觉不到"包袱"在哪。这个应该是文化了
大家互相交流吧
我报名，
strongly support!
please enter my name
Ich wollte gehen nach Wien
Don't forget me ~~~
现在已报名暂14人
daisy8675
myjian
fvflove
chenhui530
Modest
dsj23
jonys123
zzyong00
datou985
zyg0
SilenceNet
mcxhh2005
viena
bobod2008
老师 clear_zero
教导主任: TechnoFantasy
yaqi你可以准备教材去了,HOHO
我也报名！！
自从有一次接了外国的电话能听懂别人讲的可是自己却不知道怎么回答，郁闷。。。。
提高英语说话能力最重要！！！
现在已报名暂15人
daisy8675
myjian
fvflove
chenhui530
Modest
dsj23
jonys123
zzyong00
datou985
zyg0
SilenceNet
mcxhh2005
viena
bobod2008
canylove
老师 clear_zero
教导主任: TechnoFantasy
看热闹的路人甲 :aiirii
看热闹的路人乙:online
ps:果然是XP家族两只活宝
,
米有可用分的穷光蛋飘过~~
你可以拿专家分来交学费
只要你同意,我直接让某人在数据库里划帐如何
瞧,我对你要多好有多好.没有可用分就拿专家分.
什么时候开始啊？ 呵呵
越快越好
学费越少越好
这东西,网上咋学习呀??
利用www.itcast.net ??
这个是CSDN 办的,专门用于网络教学,培训
我也报名吧, 英语一直不好.
应该下月开始,本周初招生,下星期正式招生付学费,分学号.
准备教材.
不过报名的同志要有心里准备,可是有作业和考试的 =_=
我报名做监考老师。
嗯，专家分就专家分吧，我报名.
我报名做监考老师。想考试通过的找我啦
不知道有没有听力，有听力就报名学啦
我发现我可以在任何板块把帖子加入精华，这个不是版主才有的权利么
现在已报名暂17人
daisy8675
myjian
fvflove
chenhui530
Modest
dsj23
jonys123
zzyong00
datou985
zyg0
SilenceNet
mcxhh2005
viena
bobod2008
canylove
ghj1976
jinjazz (专家分报名 ,这个代价大)
老师 clear_zero
教导主任: TechnoFantasy
看热闹的路人甲 :aiirii
看热闹的路人乙:online (果然是XP家族两只活宝)
无视的路人丁:only_endure
一个精神错乱捣的乱者 :net_lover (拖出去暴晒十天)
我们B4 他们呢
举报好象小版可以看见所有相关大版的举报
嗯，看在偶帮你推荐到首页的份上，打个折吧^&^
我晕…..我说是谁推荐的呢 =_=
为了你这个推荐,我B4你,宣布收了5倍的学费 ^_^
叮叮叮
支持
我还以为你在b4 csdn的产品经理 -__-
你是开店的还是打劫的..
我本就是黑店店主
我发现我想吸收你入XP家族了,你想知道原因吗?
进入XP家族的人称呼都变了
而你,一旦进入,你的名字就叫—JP
哇卡卡.
XP家族的创建人是ari…你找他算帐吧.
报名不报名啊,不报名,就当你是路人丙了 ^_^
为什么都是打酱油，他就可以插队变成丙…
jp…也不错吗，我们打游戏的时候叫极品装备都叫jp的，包括我的头像就是jp，不过现在已经沦为lj了…
因为你是XP家族一员,怎么可以打酱油呢,AP会伤心的.
帮我找人来啊,黑店开得越大越好哦
俺也报名，别分学号了，每人分配个英文名好了
这下得好好折腾一下…..
希望至少以后拿着金山词霸看MSDN时不会太茫然…
我来报名，我也要参加 ，希望你真心的办下去，不要忽悠我们。
手机 : 13718443852
MSN: wge83@hotmail.com
我也参加
晕，班里没一个女同学！
估计要暴晒30天了
我看是60天……….
老孟你装个女的好了,老孟见客来.
怎么个学法？什么时间？
报个名先 。
偶，报名
请问楼主，教学方法是什么？
我门怎么学，需要做什么准备吗？
那么时间怎么分配呢，我还要上班啊？
呵呵，把您的方案给我门讲讲。。。。
同意上个的意见。
这个待考虑,总之是灵活式的
itcase也可以试试哦
总之,作业,考试是一定会有的
内容要做老师的来决定.
现在是初步报名,正式报名的时候,就开始会告诉你们方法了.
大概时间会在8月初或者8月中开始 (要考虑奥运会 ^_^ )
第一批成员最多20人.办得好的话,可以考虑下一批.
如果英语办得好.我们可以联系其他讲师 ^_^ 现在只能自己小打小闹一下.
光说教师和教导主任了，没看到校长，难道莫MM就是校长？
我要报名。
关注，拿分~
哈哈我报名
有作业还有考试，不知道有家长会没有，不及格要不要补考，补考不及格要不要重修…
先拿分
再报名
交分开发票不 嘿嘿
偶也加入,英文太烂了
我是校长我就发财咯~~~
我要发财我要发财,嘿嘿.
不及格的出赞助就可以了.^_^.
可以开发票啊,我给你个萝卜章的发票哦.
分够就报名
我也比较感兴趣,不知道有什么条件,自我感觉E文很差
条件是:至少能分得清楚 26个字母,会读出来. 有耐心,能坚持者.
现在已报名暂27人
daisy8675
myjian
fvflove
chenhui530
Modest
dsj23
jonys123
zzyong00
datou985
zyg0
SilenceNet
mcxhh2005
viena
bobod2008
canylove
ghj1976
jinjazz (专家分报名 ,这个代价大)
java375378563
stning
jaksuse
shirleyliujingyi
frozenfood
thwen0101
tianyalangren
jiezhanyang
Herod21
zergcsda
老师 clear_zero
教导主任: TechnoFantasy
看热闹的路人甲 :aiirii
看热闹的路人乙:online (果然是XP家族两只活宝)
无视的路人丁:only_endure
拿分没门的路人戊：qinbuer
咨询路人之：rockyvan
一个精神错乱捣的乱者 :net_lover (拖出去暴晒十天)
我也参加一下，英语一直是软肋
我也参加一下，英语一直是软肋
我也参加一下，英语一直是软肋
报名报名..就会ABC,怎么学啊
我来说明下哈，我就是Yaqi
大家集思广义看看怎么才能更好的学习英文。
一个人学习比较孤单，不用长久。大家绑一块比较容易坚持
听
说
读
写
我想想，大家也想想
how much?
我也报名,LZ不能丢下我
报个名，攒了好几年的可用分了..
接不接收旁听生呀，就是不准时上课，不交作业的那种。
主要是基础太差
学费还是会交的哦。
具体方法是怎样
why not 不报名？
算我一个. ^_^
我现在就愁分太多啊，既然你能开萝卜章的发票，哪就赞助你一下了，开发票时，多写点儿
偶读书英语就没及过格 不晓得 行不行 我写作业都找英语字典 哎 那日子苦啊
校长 算我个否?
ME
不接旁听生哦.
偶们开黑店,也是开正亏黑店
所谓,黑要黑得响亮!
欢迎所有报名的同学们.
大家都是什么水平呢？
Drive to halt straw burning sees Chinese farmers 'go green'
GOV.cn Tuesday, June 24, 2008
The summer harvest was over.
Watching a machine crush the wheat stubble in the field, Gao Chengli recalled the days when he was choked by smoke from burning straw and wary of local officials' scrutiny.
"We didn't get it at first," said the 40-year-old Gao, referring to China's ban on burning waste stalks, which began in 1999.
"Farmers even set fires secretly because it was convenient."
In the run-up to the Olympics, Chinese farmers like Gao have shifted from matches to machines as the government strives to keep Beijing from being smothered by smoke.
Officials are using many approaches, ranging from the carrot of subsidies and the stick of fines to satellite monitoring and straw-to-power projects.
Beijing farmers had adopted the conservation farming approach, which leaves stubble in the soil to increase organic matter, on more than 80 percent of all farm land since 2006, said the Ministry of Agriculture on Monday.
"The achievement was significant for reducing dust in Beijing, cutting straw burning and improving the capital's environment for the Olympics," the ministry quoted Minister Sun Zhengcai as saying in a statement.
Straw burning in the Beijing suburbs, which extend far beyond the city center, used to cause thick smog in the capital proper, closing highways and disrupting airport operations.
Smoke from the farms south of Beijing was blown north last June,polluting the capital's sky for days.
For Gao, who owns about 0.38 acres of land in Zhengding County, Hebei Province, which borders Beijing, the solution was a crushing machine organized by the township government.
In Beizaoxian, another town in the county, 200,000 yuan (28,571U.S. dollars) was allocated by the township government to subsidize farmers' purchase of farm machines, including the stubble-crushing machine.
"Farmers have gradually come to understand the harm of burning waste straw and voluntarily adopted crushing," said Zheng Wei, an official with the Zhengding government.
In some parts of China, the issue turned bitter for local officials. Four town-level officials were suspended last week for not doing enough to stop straw burning in Xi'an, capital of the northwestern Shaanxi Province.
To keep the sky clear for the Olympics, the central government expanded the no-straw-burning areas in May and imposed a full-scale ban in Beijing and eight regions neighboring or south of the city through September.
The China Meteorological Administration said that satellite monitoring picked up 1,762 fires set on farm land from June 2 to 15, down 22 percent from the period between June 4 and 17 last year.
Satellite technology was introduced in 2004 in an effort to reduce the outlawed practice of straw burning, and this system of monitoring detected 2,989 fires in 2007, up from 2,481 in 2004.
"Farmers had their own reasons." said professor Cheng Xu of the China Agricultural University (CAU).
Cheng said that farmers often had little time to clear the land of one crop before having to plant another, so fire was often the fastest option.
China's agricultural areas saw about 700 million tons of waste straw left after harvests each year.
By the end of 2007, mechanical stubble crushing had been applied on 327 million mu (21.8 million hectares) of farm land, about one sixth of the country's total, according to the ministry.
"About 30 percent of China's waste straw goes unused," said another CAU professor, Meng Qingxiang. "The waste straw is not 'waste' at all but a precious resource, and we must let people know that."
Straw has several uses, including livestock feed, methane production, a source of solid fuel or electricity generation, said Cheng.
Li Jing, deputy head of the National Development and Reform Commission's (NDRC's) resource conservation and environmental protection department, urged China to speed up the comprehensive use of waste straw.
China is considering ways to use more than 80 percent of its waste straw by 2015, according to officials with the NDRC.
Editor: An Lu
Source: Xinhua
报名啦
报名
报名报名
报名报名报名
报名报名报名报名
报名报名报名报名报名
报名报名报名报名报名报名
报名报名报名报名报名报名报名
报名报名报名报名报名报名报名报名
前面报名被MMM无视了，再报
各位同学：入学前先进行一下测试，将下面的一句话翻译成中文，按准确程度录取：
I will go to sleep.
这句话翻译成中文，怎么说最恰当？
我要去睡觉了..
我会去睡觉？
老孟你基本上够丰满了，请保持体形。
还有这么好的事~
我一定要报名
奖励什么的就不用了 每天有冰激凌吃就可以了~
怎么对话啊？说说条件呢
一般这样说
I am going to sleep 或者 I am going to bed
比较口语化，不过你说的也是对的
真是太好了。我要来哦
Is true
I think 报名
还要不
我必须报名
报名 ,报名 , 楼主, 我要摆脱english半文盲状态
学不来了
热贴留名……
我也报名，这个主意不错！
多好 可以和女同学聊天 还可以聊女老师 喜欢
我要报名… …
我也想学呀！
大家说说都想学些什么
网上教很难阿，可以用到的工具
1csdn平台
2msn群
3skype
我就知道这么多了
我们都想想什么方法比较好
有在线的chat 比如ms 的webcast.
QQ群也是一个联系方式哦
不是所有人都能上qq的
QQ群，msn我都没问题，问题是什么时间。呵呵
我就知道你这么说
贴出影子的档案
- VB code
-
名字：影子 ID： zyg0 性别：男 爱好：女
咳ⷂ𗂷ⷂ𗂷ⷂ𗂷ⷂ𗂷
我漂过ⷂ𗂷ⷂ𗂷ⷂ𗂷ⷂ𗂷ⷂ𗂷ⷼ/td>
鸭蛋做校花吧
米钱怎办?
不交学费刑行不行啊？
俺要攒的那点分要用来娶媳妇呢….
按照什么学习呢？
生活场景？技术知识？
生活场景，可以按照如何在国外生活来说。
比如
机场
交通工具
…
技术知识，我就不知道了
大家出主意阿
我要报名
顺便问一下：上面孟子等级怎么成一级了，不是两个钻吗？纳闷中！！
没学之前，只当胡话。请用标准地球人类语再叙述一遍，ok？
报名
标准火星人类语行不?
报名
07 16th, 2008
如何用API显示一个模式窗口（或者如何用API把一个非模式窗口改变为模式窗口）？
=================
请不要问为什么？也不要问为什么不用FORM2.show 1方法，也不能用API置顶，因为有些事没有太多为什么，先谢。
呵呵
使用SetWindowLong设置
UP
07 16th, 2008
Declare Function RegisterClass Lib "user32 " Alias "RegisterClassA " (Class As WNDCLASS) As Long
Declare Function UnregisterClass Lib "user32 " Alias "UnregisterClassA " (ByVal lpClassName As String, ByVal hInstance As Long) As Long
Declare Function CreateWindowEx Lib "user32 " Alias "CreateWindowExA " (ByVal dwExStyle As Long, ByVal lpClassName As String, ByVal lpWindowName As String, ByVal dwStyle As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hWndParent As Long, ByVal hMenu As Long, ByVal hInstance As Long, lpParam As Any) As Long
Declare Function DefWindowProc Lib "user32 " Alias "DefWindowProcA " (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Declare Sub PostQuitMessage Lib "user32 " (ByVal nExitCode As Long)
Declare Function GetMessage Lib "user32 " Alias "GetMessageA " (lpMsg As Msg, ByVal hWnd As Long, ByVal wMsgFilterMin As Long, ByVal wMsgFilterMax As Long) As Long
Declare Function TranslateMessage Lib "user32 " (lpMsg As Msg) As Long
Declare Function DispatchMessage Lib "user32 " Alias "DispatchMessageA " (lpMsg As Msg) As Long
Declare Function ShowWindow Lib "user32 " (ByVal hWnd As Long, ByVal nCmdShow As Long) As Long
Declare Function LoadCursor Lib "user32 " Alias "LoadCursorA " (ByVal hInstance As Long, ByVal lpCursorName As Any) As Long
Declare Function DefMDIChildProc Lib "user32 " Alias "DefMDIChildProcA " (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Declare Function GetWindowLong Lib "user32 " Alias "GetWindowLongA " (ByVal hWnd As Long, ByVal nIndex As Long) As Long
Declare Function SetWindowLong Lib "user32 " Alias "SetWindowLongA " (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Declare Function CallWindowProc Lib "user32 " Alias "CallWindowProcA " (ByVal lpPrevWndFunc As Long, ByVal hWnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Type WNDCLASS
style As Long
lpfnwndproc As Long
cbClsextra As Long
cbWndExtra2 As Long
hInstance As Long
hIcon As Long
hCursor As Long
hbrBackground As Long
lpszMenuName As String
lpszClassName As String
End Type
Type POINTAPI
x As Long
y As Long
End Type
Type Msg
hWnd As Long
message As Long
wParam As Long
lParam As Long
time As Long
pt As POINTAPI
End Type
Public Const WS_OVERLAPPED = &H0&
Public Const WS_POPUP = &H80000000
Public Const WS_CHILD = &H40000000
Public Const WS_MINIMIZE = &H20000000
Public Const WS_VISIBLE = &H10000000
Public Const WS_DISABLED = &H8000000
Public Const WS_CLIPSIBLINGS = &H4000000
Public Const WS_CLIPCHILDREN = &H2000000
Public Const WS_MAXIMIZE = &H1000000
Public Const WS_CAPTION = &HC00000
Public Const WS_BORDER = &H800000
Public Const WS_DLGFRAME = &H400000
Public Const WS_VSCROLL = &H200000
Public Const WS_HSCROLL = &H100000
Public Const WS_SYSMENU = &H80000
Public Const WS_THICKFRAME = &H40000
Public Const WS_GROUP = &H20000
Public Const WS_TABSTOP = &H10000
Public Const WS_MINIMIZEBOX = &H20000
Public Const WS_MAXIMIZEBOX = &H10000
Public Const WS_TILED = WS_OVERLAPPED
Public Const WS_ICONIC = WS_MINIMIZE
Public Const WS_SIZEBOX = WS_THICKFRAME
Public Const WS_OVERLAPPEDWINDOW = (WS_OVERLAPPED Or WS_CAPTION Or WS_SYSMENU Or WS_THICKFRAME Or WS_MINIMIZEBOX Or WS_MAXIMIZEBOX)
Public Const WS_TILEDWINDOW = WS_OVERLAPPEDWINDOW
Public Const WS_POPUPWINDOW = (WS_POPUP Or WS_BORDER Or WS_SYSMENU)
Public Const WS_CHILDWINDOW = (WS_CHILD)
Public Const WS_EX_DLGMODALFRAME = &H1&
Public Const WS_EX_NOPARENTNOTIFY = &H4&
Public Const WS_EX_TOPMOST = &H8&
Public Const WS_EX_ACCEPTFILES = &H10&
Public Const WS_EX_TRANSPARENT = &H20&
Public Const COLOR_WINDOW = 5
Public Const WM_NULL = &H0
Public Const WM_CREATE = &H1
Public Const WM_DESTROY = &H2
Public Const WM_MOVE = &H3
Public Const WM_SIZE = &H5
Public Const SW_SHOWNORMAL = 1
Public Const GWL_WNDPROC = -4
Private Const WM_LBUTTONDOWN = &H201
Private Const WM_MOUSEMOVE = &H200
Private Const WM_LBUTTONUP = &H202
Dim hwnd2 As Long, hwnd3 As Long, old_proc As Long, new_proc As Long
Dim IsDrag As Boolean
Public Sub Main()
Dim lngTemp As Long
If MyRegisterClass Then
If MyCreateWindow Then
new_proc = GetMyWndProc(AddressOf ButtonProc)
old_proc = SetWindowLong(hwnd2, GWL_WNDPROC, new_proc)
MyMessageLoop
End If
MyUnregisterClass
End If
End Sub
Private Function MyRegisterClass() As Boolean
Dim wndcls As WNDCLASS
wndcls.lpfnwndproc = GetMyWndProc(AddressOf MyWndProc)
wndcls.cbClsextra = 0
wndcls.cbWndExtra2 = 0
wndcls.hInstance = App.hInstance
wndcls.hbrBackground = COLOR_WINDOW
wndcls.lpszMenuName = 0
wndcls.lpszClassName = "myWindowClass "
MyRegisterClass = (RegisterClass(wndcls) <> 0)
End Function
Private Sub MyUnregisterClass()
UnregisterClass "myWindowClass ", App.hInstance
End Sub
Private Function MyCreateWindow() As Boolean
Dim hWnd As Long
Dim style As Long
hWnd = CreateWindowEx(0, "myWindowClass ", "My Window ", WS_OVERLAPPEDWINDOW Xor WS_GROUP, 0, 0, 400, 300, 0, 0, App.hInstance, ByVal 0&)
hwnd2 = CreateWindowEx(0, "Button ", "My button ", WS_CHILD, 50, 55, 100, 25, hWnd, 0, App.hInstance, ByVal 0&)
hwnd3 = CreateWindowEx(0, "edit ", "My textbox ", WS_CHILD, 50, 25, 100, 25, hWnd, 0, App.hInstance, ByVal 0&)
If hWnd <> 0 Then ShowWindow hWnd, SW_SHOWNORMAL
ShowWindow hwnd2, SW_SHOWNORMAL
ShowWindow hwnd3, SW_SHOWNORMAL
MyCreateWindow = (hWnd <> 0)
End Function
Private Function MyWndProc(ByVal hWnd As Long, ByVal message As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Select Case message
Case WM_DESTROY
PostQuitMessage (0)
Case WM_LBUTTONDOWN
IsDrag = True
Case WM_MOUSEMOVE
If IsDrag = True Then
Debug.Print "Drag " & Now
End If
Case WM_LBUTTONUP
If IsDrag = True Then
IsDrag = False
End If
End Select
MyWndProc = DefWindowProc(hWnd, message, wParam, lParam)
End Function
Function GetMyWndProc(ByVal lWndProc As Long) As Long
GetMyWndProc = lWndProc
End Function
Private Sub MyMessageLoop()
Dim aMsg As Msg
Do While GetMessage(aMsg, 0, 0, 0)
DispatchMessage aMsg
Loop
End Sub
Private Function ButtonProc(ByVal hWnd As Long, ByVal message As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Dim x As Integer
If (message = 533) Then
x = MsgBox( "You clicked on the button ", vbOKOnly)
End If
ButtonProc = CallWindowProc(old_proc, hWnd, message, wParam, lParam)
End Function
==========================
把这段代码放到模块中去，运行，在窗口空白处按下左键然后拖到按钮上去，发现在按钮上拖动时并不显示数据？有没有办法让其在按钮上拖动时仍然显示数据（看立即窗口）？
没有理解题目。
07 16th, 2008
原本可以通过在“工程属性”中通过设置“生成”-“应用程序图标”可以来设置（选择一个窗口，用这个窗口为EXE文件图标），现由于我在VB下进行WINDOWS编程，没有用到一个窗口（*。FRM）文件，那么如何设置一个特定的文件图标呢？
办法是解决了，或许写程序的人要多转个弯，但这种方法不适合那种想深入程序的人应该做的。
07 16th, 2008
一个project里有两个标准form，其中一个form为登陆框，在程序运行时使用什么语句在点击登陆form的离开控件时整个程序运行结束，也就是project停止运行，清高手赐教！在线等待。。。。
樓上正解~~~~~~~
如果其他窗体还没加载，那么用unload me也是可以的。
哈哈 你门太厉害了，呵呵 其实是我太烂了
谢谢啊。。
07 16th, 2008
首字节 &H81
第2字节 &H1
第3字节 &H5
第4字节 &H30
第5字节 Vadd
为异或和（第2字节到Vadd前字节异或和）
用于串口通信
热切希望能详细解释。
感谢VB老鸟答复。
如果总的异或和，一楼说得没错，如果只求相邻的异或和分开保存，则需要另外写代码，但是就是简单的xor操作。
07 16th, 2008
准备办个简单的英语对话学习班.
聘任 yaqi 来做英文老师.
要交学费–可用分
交作业
考试
以一月为期,第一名,偶来给奖励.实物奖励哈,暂时构想就这些.
有兴趣者,先来个初级报名跟跟.
我看看有多少人>10人就办
支持~~~，观望~~
嘿呀,嘿嘿~~
我来也~~
想报个名,但是E文基础太太太太太差,不知道面向什么等级的E文学生?
能算我一个否./
哈哈我报名
可以哦 只要你保证按时上课交作业哈
英语最好是没基础开始,哈哈
yaqi是个不错的老师呢
我现在的初步的打算是,谁最后第一名我就跟美国寄个礼物过来
不过要是我自己第一,哇卡卡，就要yaqi同学从英国给我寄个礼物了
我也来顶下
我也报名，看看能否让我的英语水平0的突破。
其实我也想学学。
支持 ，早日摆脱英语盲 ^^!
强烈支持，我做教导主任，看谁不听话。
我也报名，学费有的是
怎么总是天南海北的？
一会儿美国，一会儿英国的
不行，有点儿乱，得屡一屡
等我屡清了，我也报下名
自从过了四级就没怎么写过英语单词了
难道楼主要去美国了？
哇哈哈陈老大都来了~~看来雅奇会一下子多了N多“弟子”了
貌似理清了，报名，就当个助理教练吧，哈哈
现在已报名暂9人
daisy8675
myjian
fvflove
chenhui530
Modest
dsj23
jonys123
zzyong00
datou985
老师 clear_zero
教导主任: TechnoFantasy
教导主任主任负责最后礼品的采购工作
好了,老大你出血吧,哦哈哈,这可是你自己找的
你想为最后的礼品买单吗?哇卡卡,想买单就做助理吧
强烈支持
狂顶
龙老大呀~~~~~~~~~~~~~~~~~~~~~~~~~终于在地球出现一次了…………..
汗
来的少一些
大家还好吧
看样子那天专门发个帖子絮絮旧了
M1的号召，诸位老大哪有不眷顾之理？
老龙，想死我了。哇咔咔
老龙做副教导主任吧，职务是协助教导主任办理采购事宜。
买单也无所谓
只要真有人能从中学到东西就好
带我不 我报名
报名！
厄。。。。 只是。。不知道学费多少
只有520可用分。。。 -_-
本来有1020分的。。。
前几天500分压本届奥运会中国金牌数最多 -_-!
我觉得大部分人过了四六级了，英语很好了。只要还记得用到就不会忘记
如果在外企的更是每天都用了
我英文水平按照听说读写依次下降
写最差，我写技术文档总是很担心对方看不明白，我的文档都写的比较繁复。一般包括流程图，部分细节流程图，文字解释，如果还不成就加屏幕截图。写那些弹出的对话框信息也没啥信心。
读的时候要是心浮气躁就读不进去，踏实下来就没什么问题。主要是我的词汇量小，还好有Babel Fish
听说没有什么问题，环境锻炼的。说上面就是表达清楚了就好了，口音什么的根本不用管。
现在看下来我觉得两个东西比较难 1细节描写(动作，表情，就好像中文中的那些细节描写) 2幽默。我听他们的Stand Up(类似中国的单口相声)感觉不到"包袱"在哪。这个应该是文化了
大家互相交流吧
我报名，
strongly support!
please enter my name
Ich wollte gehen nach Wien
Don't forget me ~~~
现在已报名暂14人
daisy8675
myjian
fvflove
chenhui530
Modest
dsj23
jonys123
zzyong00
datou985
zyg0
SilenceNet
mcxhh2005
viena
bobod2008
老师 clear_zero
教导主任: TechnoFantasy
yaqi你可以准备教材去了,HOHO
我也报名！！
自从有一次接了外国的电话能听懂别人讲的可是自己却不知道怎么回答，郁闷。。。。
提高英语说话能力最重要！！！
现在已报名暂15人
daisy8675
myjian
fvflove
chenhui530
Modest
dsj23
jonys123
zzyong00
datou985
zyg0
SilenceNet
mcxhh2005
viena
bobod2008
canylove
老师 clear_zero
教导主任: TechnoFantasy
看热闹的路人甲 :aiirii
看热闹的路人乙:online
ps:果然是XP家族两只活宝
,
米有可用分的穷光蛋飘过~~
你可以拿专家分来交学费
只要你同意,我直接让某人在数据库里划帐如何
瞧,我对你要多好有多好.没有可用分就拿专家分.
什么时候开始啊？ 呵呵
越快越好
学费越少越好
这东西,网上咋学习呀??
利用www.itcast.net ??
这个是CSDN 办的,专门用于网络教学,培训
我也报名吧, 英语一直不好.
应该下月开始,本周初招生,下星期正式招生付学费,分学号.
准备教材.
不过报名的同志要有心里准备,可是有作业和考试的 =_=
我报名做监考老师。
嗯，专家分就专家分吧，我报名.
我报名做监考老师。想考试通过的找我啦
不知道有没有听力，有听力就报名学啦
我发现我可以在任何板块把帖子加入精华，这个不是版主才有的权利么
现在已报名暂17人
daisy8675
myjian
fvflove
chenhui530
Modest
dsj23
jonys123
zzyong00
datou985
zyg0
SilenceNet
mcxhh2005
viena
bobod2008
canylove
ghj1976
jinjazz (专家分报名 ,这个代价大)
老师 clear_zero
教导主任: TechnoFantasy
看热闹的路人甲 :aiirii
看热闹的路人乙:online (果然是XP家族两只活宝)
无视的路人丁:only_endure
一个精神错乱捣的乱者 :net_lover (拖出去暴晒十天)
我们B4 他们呢
举报好象小版可以看见所有相关大版的举报
嗯，看在偶帮你推荐到首页的份上，打个折吧^&^
我晕…..我说是谁推荐的呢 =_=
为了你这个推荐,我B4你,宣布收了5倍的学费 ^_^
叮叮叮
支持
我还以为你在b4 csdn的产品经理 -__-
你是开店的还是打劫的..
我本就是黑店店主
我发现我想吸收你入XP家族了,你想知道原因吗?
进入XP家族的人称呼都变了
而你,一旦进入,你的名字就叫—JP
哇卡卡.
XP家族的创建人是ari…你找他算帐吧.
报名不报名啊,不报名,就当你是路人丙了 ^_^
为什么都是打酱油，他就可以插队变成丙…
jp…也不错吗，我们打游戏的时候叫极品装备都叫jp的，包括我的头像就是jp，不过现在已经沦为lj了…
因为你是XP家族一员,怎么可以打酱油呢,AP会伤心的.
帮我找人来啊,黑店开得越大越好哦
俺也报名，别分学号了，每人分配个英文名好了
这下得好好折腾一下…..
希望至少以后拿着金山词霸看MSDN时不会太茫然…
我来报名，我也要参加 ，希望你真心的办下去，不要忽悠我们。
手机 : 13718443852
MSN: wge83@hotmail.com
我也参加
晕，班里没一个女同学！
估计要暴晒30天了
我看是60天……….
老孟你装个女的好了,老孟见客来.
怎么个学法？什么时间？
报个名先 。
偶，报名
请问楼主，教学方法是什么？
我门怎么学，需要做什么准备吗？
那么时间怎么分配呢，我还要上班啊？
呵呵，把您的方案给我门讲讲。。。。
同意上个的意见。
这个待考虑,总之是灵活式的
itcase也可以试试哦
总之,作业,考试是一定会有的
内容要做老师的来决定.
现在是初步报名,正式报名的时候,就开始会告诉你们方法了.
大概时间会在8月初或者8月中开始 (要考虑奥运会 ^_^ )
第一批成员最多20人.办得好的话,可以考虑下一批.
如果英语办得好.我们可以联系其他讲师 ^_^ 现在只能自己小打小闹一下.
光说教师和教导主任了，没看到校长，难道莫MM就是校长？
我要报名。
关注，拿分~
哈哈我报名
有作业还有考试，不知道有家长会没有，不及格要不要补考，补考不及格要不要重修…
先拿分
再报名
交分开发票不 嘿嘿
偶也加入,英文太烂了
我是校长我就发财咯~~~
我要发财我要发财,嘿嘿.
不及格的出赞助就可以了.^_^.
可以开发票啊,我给你个萝卜章的发票哦.
分够就报名
我也比较感兴趣,不知道有什么条件,自我感觉E文很差
条件是:至少能分得清楚 26个字母,会读出来. 有耐心,能坚持者.
现在已报名暂27人
daisy8675
myjian
fvflove
chenhui530
Modest
dsj23
jonys123
zzyong00
datou985
zyg0
SilenceNet
mcxhh2005
viena
bobod2008
canylove
ghj1976
jinjazz (专家分报名 ,这个代价大)
java375378563
stning
jaksuse
shirleyliujingyi
frozenfood
thwen0101
tianyalangren
jiezhanyang
Herod21
zergcsda
老师 clear_zero
教导主任: TechnoFantasy
看热闹的路人甲 :aiirii
看热闹的路人乙:online (果然是XP家族两只活宝)
无视的路人丁:only_endure
拿分没门的路人戊：qinbuer
咨询路人之：rockyvan
一个精神错乱捣的乱者 :net_lover (拖出去暴晒十天)
我也参加一下，英语一直是软肋
我也参加一下，英语一直是软肋
我也参加一下，英语一直是软肋
报名报名..就会ABC,怎么学啊
我来说明下哈，我就是Yaqi
大家集思广义看看怎么才能更好的学习英文。
一个人学习比较孤单，不用长久。大家绑一块比较容易坚持
听
说
读
写
我想想，大家也想想
how much?
我也报名,LZ不能丢下我
报个名，攒了好几年的可用分了..
接不接收旁听生呀，就是不准时上课，不交作业的那种。
主要是基础太差
学费还是会交的哦。
具体方法是怎样
why not 不报名？
算我一个. ^_^
我现在就愁分太多啊，既然你能开萝卜章的发票，哪就赞助你一下了，开发票时，多写点儿
偶读书英语就没及过格 不晓得 行不行 我写作业都找英语字典 哎 那日子苦啊
校长 算我个否?
ME
不接旁听生哦.
偶们开黑店,也是开正亏黑店
所谓,黑要黑得响亮!
欢迎所有报名的同学们.
大家都是什么水平呢？
Drive to halt straw burning sees Chinese farmers 'go green'
GOV.cn Tuesday, June 24, 2008
The summer harvest was over.
Watching a machine crush the wheat stubble in the field, Gao Chengli recalled the days when he was choked by smoke from burning straw and wary of local officials' scrutiny.
"We didn't get it at first," said the 40-year-old Gao, referring to China's ban on burning waste stalks, which began in 1999.
"Farmers even set fires secretly because it was convenient."
In the run-up to the Olympics, Chinese farmers like Gao have shifted from matches to machines as the government strives to keep Beijing from being smothered by smoke.
Officials are using many approaches, ranging from the carrot of subsidies and the stick of fines to satellite monitoring and straw-to-power projects.
Beijing farmers had adopted the conservation farming approach, which leaves stubble in the soil to increase organic matter, on more than 80 percent of all farm land since 2006, said the Ministry of Agriculture on Monday.
"The achievement was significant for reducing dust in Beijing, cutting straw burning and improving the capital's environment for the Olympics," the ministry quoted Minister Sun Zhengcai as saying in a statement.
Straw burning in the Beijing suburbs, which extend far beyond the city center, used to cause thick smog in the capital proper, closing highways and disrupting airport operations.
Smoke from the farms south of Beijing was blown north last June,polluting the capital's sky for days.
For Gao, who owns about 0.38 acres of land in Zhengding County, Hebei Province, which borders Beijing, the solution was a crushing machine organized by the township government.
In Beizaoxian, another town in the county, 200,000 yuan (28,571U.S. dollars) was allocated by the township government to subsidize farmers' purchase of farm machines, including the stubble-crushing machine.
"Farmers have gradually come to understand the harm of burning waste straw and voluntarily adopted crushing," said Zheng Wei, an official with the Zhengding government.
In some parts of China, the issue turned bitter for local officials. Four town-level officials were suspended last week for not doing enough to stop straw burning in Xi'an, capital of the northwestern Shaanxi Province.
To keep the sky clear for the Olympics, the central government expanded the no-straw-burning areas in May and imposed a full-scale ban in Beijing and eight regions neighboring or south of the city through September.
The China Meteorological Administration said that satellite monitoring picked up 1,762 fires set on farm land from June 2 to 15, down 22 percent from the period between June 4 and 17 last year.
Satellite technology was introduced in 2004 in an effort to reduce the outlawed practice of straw burning, and this system of monitoring detected 2,989 fires in 2007, up from 2,481 in 2004.
"Farmers had their own reasons." said professor Cheng Xu of the China Agricultural University (CAU).
Cheng said that farmers often had little time to clear the land of one crop before having to plant another, so fire was often the fastest option.
China's agricultural areas saw about 700 million tons of waste straw left after harvests each year.
By the end of 2007, mechanical stubble crushing had been applied on 327 million mu (21.8 million hectares) of farm land, about one sixth of the country's total, according to the ministry.
"About 30 percent of China's waste straw goes unused," said another CAU professor, Meng Qingxiang. "The waste straw is not 'waste' at all but a precious resource, and we must let people know that."
Straw has several uses, including livestock feed, methane production, a source of solid fuel or electricity generation, said Cheng.
Li Jing, deputy head of the National Development and Reform Commission's (NDRC's) resource conservation and environmental protection department, urged China to speed up the comprehensive use of waste straw.
China is considering ways to use more than 80 percent of its waste straw by 2015, according to officials with the NDRC.
Editor: An Lu
Source: Xinhua
报名啦
报名
报名报名
报名报名报名
报名报名报名报名
报名报名报名报名报名
报名报名报名报名报名报名
报名报名报名报名报名报名报名
报名报名报名报名报名报名报名报名
前面报名被MMM无视了，再报
各位同学：入学前先进行一下测试，将下面的一句话翻译成中文，按准确程度录取：
I will go to sleep.
这句话翻译成中文，怎么说最恰当？
我要去睡觉了..
我会去睡觉？
老孟你基本上够丰满了，请保持体形。
还有这么好的事~
我一定要报名
奖励什么的就不用了 每天有冰激凌吃就可以了~
怎么对话啊？说说条件呢
一般这样说
I am going to sleep 或者 I am going to bed
比较口语化，不过你说的也是对的
真是太好了。我要来哦
Is true
I think 报名
还要不
我必须报名
报名 ,报名 , 楼主, 我要摆脱english半文盲状态
学不来了
热贴留名……
我也报名，这个主意不错！
多好 可以和女同学聊天 还可以聊女老师 喜欢
我要报名… …
我也想学呀！
大家说说都想学些什么
网上教很难阿，可以用到的工具
1csdn平台
2msn群
3skype
我就知道这么多了
我们都想想什么方法比较好
有在线的chat 比如ms 的webcast.
QQ群也是一个联系方式哦
不是所有人都能上qq的
QQ群，msn我都没问题，问题是什么时间。呵呵
我就知道你这么说
贴出影子的档案
- VB code
-
名字：影子 ID： zyg0 性别：男 爱好：女
咳ⷂ𗂷ⷂ𗂷ⷂ𗂷ⷂ𗂷
我漂过ⷂ𗂷ⷂ𗂷ⷂ𗂷ⷂ𗂷ⷂ𗂷ⷼ/td>
鸭蛋做校花吧
米钱怎办?
不交学费刑行不行啊？
俺要攒的那点分要用来娶媳妇呢….
按照什么学习呢？
生活场景？技术知识？
生活场景，可以按照如何在国外生活来说。
比如
机场
交通工具
…
技术知识，我就不知道了
大家出主意阿
我要报名
顺便问一下：上面孟子等级怎么成一级了，不是两个钻吗？纳闷中！！
没学之前，只当胡话。请用标准地球人类语再叙述一遍，ok？
报名
标准火星人类语行不?
07 16th, 2008
我现在对 2000 NT 系统漏洞比较熟悉 希望能编个程序来解决这些问题
问题：通过VB 修改注册表 即：某某某表项值修改为***
请各位大虾们帮帮忙！
我还想这出书呢！
有 TELNET服务的 益出 PING返回值判断电脑操作系统等等。。。
你可以到http://zbhssoft.5d6d.com/forum-16-1.html看看去
VB 修改注册表:
http://zhidao.baidu.com/question/26983333.html
http://zhidao.baidu.com/question/24267086.html
谢谢了
可以写溢出程序 一般都用C写
07 16th, 2008
text1 显示IP地址 text2显示MAC地址
跪求代码
谢谢了
Determine Local Adapter MAC Address
Private Const NCBASTAT As Long = &H33
Private Const NCBNAMSZ As Long = 16
Private Const HEAP_ZERO_MEMORY As Long = &H8
Private Const HEAP_GENERATE_EXCEPTIONS As Long = &H4
Private Const NCBRESET As Long = &H32
Private Type NET_CONTROL_BLOCK 'NCB
ncb_command As Byte
ncb_retcode As Byte
ncb_lsn As Byte
ncb_num As Byte
ncb_buffer As Long
ncb_length As Integer
ncb_callname As String * NCBNAMSZ
ncb_name As String * NCBNAMSZ
ncb_rto As Byte
ncb_sto As Byte
ncb_post As Long
ncb_lana_num As Byte
ncb_cmd_cplt As Byte
ncb_reserve(9) As Byte 'Reserved, must be 0
ncb_event As Long
End Type
Private Type ADAPTER_STATUS
adapter_address(5) As Byte
rev_major As Byte
reserved0 As Byte
adapter_type As Byte
rev_minor As Byte
duration As Integer
frmr_recv As Integer
frmr_xmit As Integer
iframe_recv_err As Integer
xmit_aborts As Integer
xmit_success As Long
recv_success As Long
iframe_xmit_err As Integer
recv_buff_unavail As Integer
t1_timeouts As Integer
ti_timeouts As Integer
Reserved1 As Long
free_ncbs As Integer
max_cfg_ncbs As Integer
max_ncbs As Integer
xmit_buf_unavail As Integer
max_dgram_size As Integer
pending_sess As Integer
max_cfg_sess As Integer
max_sess As Integer
max_sess_pkt_size As Integer
name_count As Integer
End Type
Private Type NAME_BUFFER
name As String * NCBNAMSZ
name_num As Integer
name_flags As Integer
End Type
Private Type ASTAT
adapt As ADAPTER_STATUS
NameBuff(30) As NAME_BUFFER
End Type
Private Declare Function Netbios Lib "netapi32" _
(pncb As NET_CONTROL_BLOCK) As Byte
Private Declare Sub CopyMemory Lib "kernel32" _
Alias "RtlMoveMemory" _
(hpvDest As Any, ByVal _
hpvSource As Long, ByVal _
cbCopy As Long)
Private Declare Function GetProcessHeap Lib "kernel32" () As Long
Private Declare Function HeapAlloc Lib "kernel32" _
(ByVal hHeap As Long, _
ByVal dwFlags As Long, _
ByVal dwBytes As Long) As Long
Private Declare Function HeapFree Lib "kernel32" _
(ByVal hHeap As Long, _
ByVal dwFlags As Long, _
lpMem As Any) As Long
Private Sub Command1_Click()
'in calling, pass the character you
'want as a delimiter between MAC
'address members
Text1.Text = GetMACAddress("-")
End Sub
Private Function GetMACAddress(sDelimiter As String) As String
'retrieve the MAC Address for the network controller
'installed, returning a formatted string
Dim tmp As String
Dim pASTAT As Long
Dim NCB As NET_CONTROL_BLOCK
Dim AST As ASTAT
Dim cnt As Long
'The IBM NetBIOS 3.0 specifications defines four basic
'NetBIOS environments under the NCBRESET command. Win32
'follows the OS/2 Dynamic Link Routine (DLR) environment.
'This means that the first NCB issued by an application
'must be a NCBRESET, with the exception of NCBENUM.
'The Windows NT implementation differs from the IBM
'NetBIOS 3.0 specifications in the NCB_CALLNAME field.
NCB.ncb_command = NCBRESET
Call Netbios(NCB)
'To get the Media Access Control (MAC) address for an
'ethernet adapter programmatically, use the Netbios()
'NCBASTAT command and provide a "*" as the name in the
'NCB.ncb_CallName field (in a 16-chr string).
NCB.ncb_callname = "* "
NCB.ncb_command = NCBASTAT
'For machines with multiple network adapters you need to
'enumerate the LANA numbers and perform the NCBASTAT
'command on each. Even when you have a single network
'adapter, it is a good idea to enumerate valid LANA numbers
'first and perform the NCBASTAT on one of the valid LANA
'numbers. It is considered bad programming to hardcode the
'LANA number to 0 (see the comments section below).
NCB.ncb_lana_num = 0
NCB.ncb_length = Len(AST)
pASTAT = HeapAlloc(GetProcessHeap(), _
HEAP_GENERATE_EXCEPTIONS Or _
HEAP_ZERO_MEMORY, _
NCB.ncb_length)
If pASTAT <> 0 Then
NCB.ncb_buffer = pASTAT
Call Netbios(NCB)
CopyMemory AST, NCB.ncb_buffer, Len(AST)
'convert the byte array to a string
GetMACAddress = MakeMacAddress(AST.adapt.adapter_address(), sDelimiter)
HeapFree GetProcessHeap(), 0, pASTAT
Else
Debug.Print "memory allocation failed!"
Exit Function
End If
End Function
Private Function MakeMacAddress(b() As Byte, sDelim As String) As String
Dim cnt As Long
Dim buff As String
On Local Error GoTo MakeMac_error
'so far, MAC addresses are
'exactly 6 segments in size (0-5)
If UBound(b) = 5 Then
'concatenate the first five values
'together and separate with the
'delimiter char
For cnt = 0 To 4
buff = buff & Right$("00" & Hex(b(cnt)), 2) & sDelim
Next
'and append the last value
buff = buff & Right$("00" & Hex(b(5)), 2)
End If 'UBound(b)
MakeMacAddress = buff
MakeMac_exit:
Exit Function
MakeMac_error:
MakeMacAddress = "(error building MAC address)"
Resume MakeMac_exit
End Function
"跪求"……………….
如果有一天这招也不管用了的时候,你会求谁呢?
不用 "跪求 "……………….
多放點分就好了/cy