声明：泰山是菜鸟。。。巴顿是第一高手。。。

dbcontrols 2002-01-24 01:51:29
如果您以前给过我分，您小心了，巴顿要恨你一辈子。
...全文
261 35 打赏 收藏 转发到动态 举报
写回复
用AI写文章
35 条回复
切换为时间正序
请发表友善的回复…
发表回复
yxgsb 2002-01-25
  • 打赏
  • 举报
 回复
(泰山__帮助你使我感到快乐.)　
我拥护你,你帮了我一个忙.....虽然，忙没有帮成功！但是在这里,我还是要谢谢你!!!!!!!

Bardo(巴顿)
别生气，俺不是跟你做对！俺也拥护你！
Ranma_True 2002-01-25
  • 打赏
  • 举报
 回复
to Bardo(巴顿):
"你不懂VB"---我承认我的vb挺菜,不过不算是一点都不懂的那个级别.
"你在此胡乱回复，许多初学者都受你误导！"---我给别人回复的答案,对不对提问者可以验证.
而且我也只是提出我的看法,难道水平达不到一定的级别还不让说话了吗?目前总有比我菜
的吧,我回答一个"form1.visible=true"的问题都不行吗?而且对我来说我觉得有点难度的问 题,我都会先在自己机器上验证通过在回复.
"监于你是初学，我们都算了！"---这是什么意思?你还想把我怎样?
"对你不够宽容吗？"---你有什么资格对我宽容不宽容?你有仲裁的权利吗?
"但是你现在所说的话，同样是打浆糊！"---我只不过是说说我的看法,如果你觉得不对,你可以 单单就这个问题拿出来讨论,说上面那一大堆干什么?难道vb菜,就不能在这些问题上提看法了吗?
"不过我还是谢了！"---没什么,我只不过觉得我们应该团结.
"你事实上不是真心"---你凭什么说我不是真心
"若上真心,为什么不参加募捐？？？？？？？？？？？？"---我凭什么要募捐?我干吗要向你证明些什么?





hycapril 2002-01-25
  • 打赏
  • 举报
 回复
eeeeeeeeeeeeeeeeeeeeee
cocodog 2002-01-25
  • 打赏
  • 举报
 回复
：　hufei00(黑马王子)　
你可真幽默,dbcontrols是谁呀,他认识泰山呀!!!
dsclub 2002-01-25
  • 打赏
  • 举报
 回复
你们都是高手！
dsclub 2002-01-25
  • 打赏
  • 举报
 回复
帮忙看看：


http://www.csdn.net/expert/topic/492/492742.shtm



Bardo 2002-01-24
  • 打赏
  • 举报
 回复
主　　题：想念CSDN的磨牙茶社~~~~~~~
作　　者：luocc
所属论坛：Visual Basic
问题点数：0
回复次数：5
发表时间：2002-1-24 11:08:35


好想念CSDN的磨牙茶社呀，阿木，老山，老妖，吴文智，你们在不在呀？好久都不见你们浮头了~~~~~~~~


回复贴子：
回复人：　uguess(uguess)　(2002-1-24 11:11:48) 得0分

对对，没想到还有人记得！～
他们好像都转到军营去了。



回复人：　Jneu(沧海桑田)　(2002-1-24 11:13:01) 得0分
吴文智,老山，包香都让dbcontrols
给气跑了～，接下来又不知道轮到谁了呢？
回复人：　Jneu(沧海桑田)　(2002-1-24 11:26:14) 得0分
欢迎到军营(www.jinesc.com)看看～
回复人：　luocc(罗)　(2002-1-24 11:27:38) 得0分
to Jneu(沧海桑田)：气跑了？不是吧~~~~~，知道去哪里找他们吗？
to uguess(uguess):我当然记得了，可惜~~~~~~~~~~，可恶的dbcontrols!!!
这儿高手越来越少啦了~~~~~~~~~

回复人：　Jneu(沧海桑田)　(2002-1-24 11:32:36) 得0分
主　　题：dbcontrols终于要走了～
★baoxiang★ 星期六上校 ¦ 回复时间：2002-1-22 -13:54:57

LAUGH
这个混蛋终于滚了。
看来我要考虑是不是回去看看。

TBBT 2002-01-24
  • 打赏
  • 举报
 回复
哇！这是什么？
Bardo 2002-01-24
  • 打赏
  • 举报
 回复
Option Explicit

'Primary Language Locale Name LCID Win CP DOS CP
'Albanian Albania (041c; SQI)
'Basque Basque (042D; EUQ) 1252 850
'Byelorussian Byelorussia (0423, BEL) 1251 866
'Bulgarian Bulgaria (0402, BGR) 1251 866
'Catalan Catalan (0403; CAT) 1252 850
'Croatian Croatian (041a, SHL) 1250 852
'Czech Czech (0405; CSY) 1250 852
'Danish Danish (0406; DAN) 1252 865
'Dutch (2): Dutch (Standard) (0413; NLD) 1252 850
'Dutch (2): Belgian (Flemish) (0813; NLB) 1252 850
'English (6): American (0409; ENU) 1252 437
'English (6): British (0809; ENG) 1252 850
'English (6): Australian (0c09; ENA) 1252 850
'English (6): Canadian (1009; ENC) 1252 850
'English (6): New Zealand (1409; ENZ) 1252 850
'English (6): Ireland (1809; ENI) 1252 850
'Estonian Estonia (0425, ETI) 1257 775
'Finnish Finnish (040b; FIN) 1252 850
'French French (Standard) (040c; FRA) 1252 850
'French Belgian (080c; FRB) 1252 850
'French Canadian (0c0c; FRC) 1252 850
'French Swiss (100c; FRS) 1252 850
'French Luxembourg (140c; FRL) 1252 850
'German German (Standard) (0407; DEU) 1252 850
'German Swiss (0807; DES) 1252 850
'German Austrian (0c07; DEA) 1252 850
'German Luxembourg (1007; DEL) 1252 850
'German Liechtenstein (1407; DEC) 1252 850
'Greek Greek (0408; ELL) 1253 737 or 8694
'Hungarian Hungarian (040e; HUN) 1250 852
'Icelandic Icelandic (040F; ISL) 1252 850
'Italian (2): Italian (Standard) (0410; ITA) 1252 850
'Italian (2): Swiss (0810; ITS) 1252 850
'Latvian Latvia (0426, LVI) 1257 775
'Lithuanian Lithuania (0427, LTH) 1257 775
'Norwegian (2): Norwegian (Bokmal) (0414; NOR) 1252 850
'Norwegian (2): Norwegian (Nynorsk) (0814; NON) 1252 850
'Polish Polish (0415; PLK) 1250 852
'Portuguese (2): Portuguese (Brazilian) (0416; PTB) 1252 850
'Portuguese (2): Portuguese (Standard) (0816; PTG) 1252 850
'Romanian (2): Romania (0418, ROM) 1250 852
'Russian Russian (0419; RUS) 1251 866
'Slovak Slovak (041b; SKY) 1250 852
'Slovenian Slovenia (0424, SLV) 1250 852
'Spanish (3): Spanish (Traditional Sort) (040a; ESP) 1252 850
'Spanish (3): Mexican (080a; ESM) 1252 850
'Spanish (3): Spanish (Modern Sort) (0c0a; ESN) 1252 850
'Swedish Swedish (041D; SVE) 1252 850
'Turkish Turkish (041f; TRK) 1254 857
'Ukrainian Ukraine (0422, UKR) 1251 866


Private Const ANSI_CHARSET = 0
Private Const DEFAULT_CHARSET = 1
Private Const SYMBOL_CHARSET = 2
Private Const SHIFTJIS_CHARSET = 128
Private Const HANGEUL_CHARSET = 129
Private Const HANGUL_CHARSET = 129
Private Const GB2312_CHARSET = 134
Private Const CHINESEBIG5_CHARSET = 136
Private Const OEM_CHARSET = 255
Private Const JOHAB_CHARSET = 130
Private Const HEBREW_CHARSET = 177
Private Const ARABIC_CHARSET = 178
Private Const GREEK_CHARSET = 161
Private Const TURKISH_CHARSET = 162
Private Const VIETNAMESE_CHARSET = 163
Private Const THAI_CHARSET = 222
Private Const EASTEUROPE_CHARSET = 238
Private Const RUSSIAN_CHARSET = 204
Private Const MAC_CHARSET = 77
Private Const BALTIC_CHARSET = 186

Private Declare Function GetUserDefaultLCID Lib "kernel32" () As Long

Private Declare Function GetThreadLocale Lib "kernel32" () As Long
Private Declare Function LoadLibrary Lib "kernel32" Alias "LoadLibraryA" _
(ByVal lpLibFileName As String) As Long
Private Declare Function LoadString Lib "user32" Alias "LoadStringA" _
(ByVal hInstance As Long, ByVal wID As Long, ByVal lpBuffer As String, _
ByVal nBufferMax As Long) As Long
Private Declare Function GetLocaleInfo Lib "kernel32" Alias "GetLocaleInfoA" _
(ByVal Locale As Long, ByVal LCType As Long, ByVal lpLCData As String, _
ByVal cchData As Long) As Long

Private Const LOCALE_IDEFAULTANSICODEPAGE = &H1004&
Private Const LOCALE_SENGCOUNTRY = &H1002
Private Const LOCALE_SNATIVECTRYNAME = &H8
Private Const LOCALE_SCOUNTRY = &H6

Private Const THIS_LOCALID = &H408

Function GetCharSet(sCdpg As String) As Integer
Select Case sCdpg
Case "932" ' Japanese
GetCharSet = SHIFTJIS_CHARSET
Case "936" ' Simplified Chinese
GetCharSet = GB2312_CHARSET
Case "949" ' Korean
GetCharSet = HANGEUL_CHARSET
Case "950" ' Traditional Chinese
GetCharSet = CHINESEBIG5_CHARSET
Case "1250" ' Eastern Europe
GetCharSet = EASTEUROPE_CHARSET
Case "1251" ' Russian
GetCharSet = RUSSIAN_CHARSET
Case "1252" ' Western European Languages
GetCharSet = ANSI_CHARSET
Case "1253" ' Greek
GetCharSet = GREEK_CHARSET
Case "1254" ' Turkish
GetCharSet = TURKISH_CHARSET
Case "1255" ' Hebrew
GetCharSet = HEBREW_CHARSET
Case "1256" ' Arabic
GetCharSet = ARABIC_CHARSET
Case "1257" ' Baltic
GetCharSet = BALTIC_CHARSET
Case Else
GetCharSet = 0
End Select
End Function
Function StripNullTerminator(sCP As String)
Dim posNull As Long
posNull = InStr(sCP, Chr$(0))
StripNullTerminator = Left$(sCP, posNull - 1)
End Function
Private Sub Form_Load()
Dim hInst As Long, lResult As Long, x As Long
Dim LCID As Long, sLcid As String
Dim resString As String * 255
Dim sCodePage As String

sCodePage = String$(16, " ")
Label1.AutoSize = True
Label1.Caption = ""

LCID = GetThreadLocale() 'Get Current locale

Dim lLocalID As Long

' Find the LocalID.
lLocalID = GetUserDefaultLCID

'实际上，这两个函数返回是一样的！！！！
Debug.Assert LCID = lLocalID

sLcid = Hex$(Trim$(CStr(LCID))) 'Convert to Hex
' Display decimal value of the LCID (Hex in Parentheses)
Form1.Caption = "LCID " & LCID & " (" & sLcid & ")"
x = GetLocaleInfo(LCID, LOCALE_IDEFAULTANSICODEPAGE, _
sCodePage, Len(sCodePage)) 'Get code page
sCodePage = StripNullTerminator(sCodePage)
' Load dll with string table resource.
' Might need to change path for the resdll.
hInst = LoadLibrary("resdll" & sLcid & ".dll")

' Get string with ID 101.
lResult = LoadString(hInst, 101, resString, 255)
With Label1.Font
.Name = "Lucida Sans Unicode"
.Size = 14
.Charset = GetCharSet(sCodePage) 'Convert code page to charset
End With
' Display the localized string.
Label1.Caption = resString

With Text1.Font
.Name = "Tahoma"
.Charset = SYMBOL_CHARSET
.Size = 14
End With

Dim strShow As String

strShow = StrConv(Chr(264) & Chr(265) & Chr(284) & Chr(285) & Chr(292) & Chr(293) & Chr(308) & Chr(309) & Chr(348) & Chr(349) & Chr(364) & Chr(365), vbFromUnicode, lLocalID)

Text1.Text = strShow


End Sub
hufei00 2002-01-24
  • 打赏
  • 举报
 回复
我感觉泰山人挺不错的，dbcontrols你怎么能这么说呢。不要说把吨是高手，有本事就说自己是高手
Bardo 2002-01-24
  • 打赏
  • 举报
 回复
回复人：　Ranma_True(乱马1/2(真))　

第一，你不懂VB，第二、你在此胡乱回复，许多初学者都受你误导！
监于你是初学，我们都算了！
对你不够宽容吗？
但是你现在所说的话，同样是打浆糊！
不过我还是谢了！
你事实上不是真心
若上真心
为什么不参加募捐？？？？？？？？？？？？





Ranma_True 2002-01-24
  • 打赏
  • 举报
 回复
天天折腾些什么?!
什么高手不高手的?老大不小的人,天天为点虚名闹,
口水多吗?口水多去浇田去!
Bardo 2002-01-24
  • 打赏
  • 举报
 回复
希望都一起前来参加本次： 专 家 分 募 捐 活 动
希望都一起前来参加本次： 专 家 分 募 捐 活 动

希望都一起前来参加本次： 专 家 分 募 捐 活 动

希望都一起前来参加本次： 专 家 分 募 捐 活 动

希望都一起前来参加本次： 专 家 分 募 捐 活 动

希望都一起前来参加本次： 专 家 分 募 捐 活 动
希望都一起前来参加本次： 专 家 分 募 捐 活 动

希望都一起前来参加本次： 专 家 分 募 捐 活 动

希望都一起前来参加本次： 专 家 分 募 捐 活 动

希望都一起前来参加本次： 专 家 分 募 捐 活 动

希望都一起前来参加本次： 专 家 分 募 捐 活 动
希望都一起前来参加本次： 专 家 分 募 捐 活 动

希望都一起前来参加本次： 专 家 分 募 捐 活 动

希望都一起前来参加本次： 专 家 分 募 捐 活 动

希望都一起前来参加本次： 专 家 分 募 捐 活 动

希望都一起前来参加本次： 专 家 分 募 捐 活 动
希望都一起前来参加本次： 专 家 分 募 捐 活 动

希望都一起前来参加本次： 专 家 分 募 捐 活 动

希望都一起前来参加本次： 专 家 分 募 捐 活 动

希望都一起前来参加本次： 专 家 分 募 捐 活 动

希望都一起前来参加本次： 专 家 分 募 捐 活 动
希望都一起前来参加本次： 专 家 分 募 捐 活 动

希望都一起前来参加本次： 专 家 分 募 捐 活 动

希望都一起前来参加本次： 专 家 分 募 捐 活 动

希望都一起前来参加本次： 专 家 分 募 捐 活 动

http://www.csdn.net/Expert/topic/496/496906.shtm


http://www.csdn.net/Expert/topic/496/496906.shtm

http://www.csdn.net/Expert/topic/496/496906.shtm


http://www.csdn.net/Expert/topic/496/496906.shtm
http://www.csdn.net/Expert/topic/496/496906.shtm


http://www.csdn.net/Expert/topic/496/496906.shtm
http://www.csdn.net/Expert/topic/496/496906.shtm


http://www.csdn.net/Expert/topic/496/496906.shtm
http://www.csdn.net/Expert/topic/496/496906.shtm


http://www.csdn.net/Expert/topic/496/496906.shtm
http://www.csdn.net/Expert/topic/496/496906.shtm


http://www.csdn.net/Expert/topic/496/496906.shtm
http://www.csdn.net/Expert/topic/496/496906.shtm


http://www.csdn.net/Expert/topic/496/496906.shtm
http://www.csdn.net/Expert/topic/496/496906.shtm


http://www.csdn.net/Expert/topic/496/496906.shtm
http://www.csdn.net/Expert/topic/496/496906.shtm


http://www.csdn.net/Expert/topic/496/496906.shtm
http://www.csdn.net/Expert/topic/496/496906.shtm


http://www.csdn.net/Expert/topic/496/496906.shtm
http://www.csdn.net/Expert/topic/496/496906.shtm


http://www.csdn.net/Expert/topic/496/496906.shtm
MarGo 2002-01-24
  • 打赏
  • 举报
 回复
如果以高手，菜鸟论，太没劲
MarGo 2002-01-24
  • 打赏
  • 举报
 回复
在于你是不是高手，这是一个平等的论坛，只要大家喜欢vb，就可以了，为了分就那样吗？

只要你热心、只要你喜欢、只要你……

其它都不重要


Bardo 2002-01-24
  • 打赏
  • 举报
 回复
更精彩的：
http://www.csdn.net/Expert/topic/496/496906.shtm
请前往！
jett 2002-01-24
  • 打赏
  • 举报
 回复
他们之所以要赶你走，是因为你先为难他们，想赶他们走
而且以前有些高手离开论坛也和你有关
你怎么自己也不检讨一下
还要闹！！！
thinkeasy 2002-01-24
  • 打赏
  • 举报
 回复
我喜欢泰山
jessezappy 2002-01-24
  • 打赏
  • 举报
 回复
告各位小火子书:论坛本是免费的,分高了只是说明你乐于助人,这本应该是一个良好的风尚.不知各位的看法如何?
jessezappy 2002-01-24
  • 打赏
  • 举报
 回复
quhaifeng(waq)　也有可能是第一次的引用没有卸干净..
加载更多回复（15）
（HDUACM201303版_15）筛选法及预处理（附菜鸟的23个经典错误）
杭电ACM课件2014版之（HDUACM201303版_15）筛选法及预处理（附菜鸟的23个经典错误）
常用装机必备(绿色免安装软件合集)：破解高手菜鸟必备（每日更新总有一款适合您
常用装机必备(绿色免安装软件合集)：破解高手菜鸟必备（每日更新总有一款适合您
10 天精通Project 项目管理：从菜鸟到实战高手
10 天精通Project 项目管理：从菜鸟到实战高手 思维导图在线编辑链接：https://www.processon.com/view/5d4b9a91e4b0e471993c12a7
高手与菜鸟，思想与技术
 这是个严肃的话题。同样的问题，高手和菜鸟的看法是不同，怎么样不同呢？我们是高手还菜鸟呢？看看以下问题：对于AJAX：菜鸟看到的是一种新技术，趋之若骛；高手看到的是javascript的一种巧妙的应用，适可而止。对于Web2.0：菜鸟看到的是AJAX，RSS，Tag；高手看到的是以用户体验为着眼点的开发思想。对于.Net和Java：菜鸟看到的是格格不入的两大阵营，二者取一；高手看到的是表达
H5实现打印电子面单（淘宝菜鸟物流）
介绍：为了对接菜鸟物流，写的测试demo，最终需要实现and design pro版本 效果如图： 第一步： 先看文档=>菜鸟文档：接口文档 第二步： 下载云打印客户端：打印组件，安装打开就完了 第三步： 配置打印机：装驱动，设置为默认打印机（面单打印机），完事儿！ 第四步： 源代码： <!DOCTYPE html> <html> <head> ...
非技术类

741

社区成员

26,925

社区内容

发帖
与我相关
我的任务
社区描述
VB 版八卦、闲侃，联络感情地盘，禁广告帖、作业帖
社区管理员
  • 非技术类社区
加入社区
  • 近7日
  • 近30日
  • 至今

加载中

查看更多榜单
社区公告
暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章