维克苗综合站

(整)D片形式打印MSHFlexGrid
@N方法可以W。
c：巍缺c:效果差，不能一次打印全部。
————————-
Option Explicit
Private Sub Command1_Click()    Printer.PaintPicture MSFlexGrid_Name.Picture, 0, 0    Printer.EndDoc    Dim old_width As Integer    MSFlexGrid_Name.Width = Printer.Width    MSFlexGrid_Name.Width = old_widthEnd Sub
Private Sub Form_Load()    Dim i As Integer    Dim j As Integer    Me.MSFlexGrid_Name.Cols = 5    Me.MSFlexGrid_Name.Rows = 20    For i = 0 To 19        For j = 0 To 4            Me.MSFlexGrid_Name.TextMatrix(i, j) = i        Next    NextEnd Sub

xINI文件
————————
Option Explicit
‘INI文件操作函数Private Declare Function GetPrivateProfileStringByKeyName& Lib “kernel32″ Alias “GetPrivateProfileStringA” (ByVal lpApplicationName$, ByVal lpszKey$, ByVal lpszDefault$, ByVal lpszReturnBuffer$, ByVal cchReturnBuffer&, ByVal lpszFile$)Private Declare Function GetPrivateProfileStringKeys& Lib “kernel32″ Alias “GetPrivateProfileStringA” (ByVal lpApplicationName$, ByVal lpszKey&, ByVal lpszDefault$, ByVal lpszReturnBuffer$, ByVal cchReturnBuffer&, ByVal lpszFile$)Private Declare Function GetPrivateProfileStringSections& Lib “kernel32″ Alias “GetPrivateProfileStringA” (ByVal lpApplicationName&, ByVal lpszKey&, ByVal lpszDefault$, ByVal lpszReturnBuffer$, [...]

利用VB操作EXCEL来生成复杂的报表。
—- 一. 用VB创建外部EXCEL对象
—- 大多数大型 ActiveX-enabled 应用程序和其它 ActiveX 部件，在它们的对象层次中都提供了一个顶层外部可创建对象。该对象提供了对该层次中其它对象的访问，并且还提供对整个应用程序起作用的方法和属性。
—- 例如，每个 Microsoft Office 应用程序提供一个顶层 Application 对象。下面语句显示了对Microsoft Excel的 Application 对象的引用：
Dim xlApp As Excel.Application Set xlApp = New Excel.Application
—- 然后，可以用这些变量来访问在EXCEL应用程序中的从属对象、以及这些对象的属性和方法。例如：
Set xlApp = CreateObject(”Excel.Application”) ‘激活EXCEL应用程序 xlApp.Visible = False ‘隐藏EXCEL应用程序窗口 Set xlBook = xlApp.Workbooks.Open(strDestination) ‘打开工作簿，strDestination为一个EXCEL报表文件 Set xlSheet = xlBook.Worksheets(1) ‘设定工作表
—- 二. 用EXCEL 97设计报表的模版文件
—- [...]

Macrovision FLEXnet InstallShield v12 Premier Edition 英文注册版
2006-08-16　测试可以下载
———————————————–
http://www.fullky.com/soft/2379.htm

——————————————————————
公告栏
———————————
留言板
———————————
看广告玩游戏送QQ币

计算机软件开发文档编写指南
DOC文档
————————————-
下载地址：http://www.uml.org.cn/bzgf/pdf/zygx.zip

新任项目经理必须掌握的五项修炼
对许多人来说，从团队的普通成员到担任团队领导是一个重大而艰难的转折。它可以加速你的上升势头，也可以毁掉你的整个职业生涯。人们往往是在经历挫折之后，才最终领会“领导”的涵义。作为团队的领导，你必须掌握五条：管理过程；树立威信；边学习边领导；领导每个人；适度民主。
　　关键是管理过程
　　首先要学会如何授权，都亲自做就不是经理
　　对许多人来说，获得晋升后的第一反应是承担更多的工作。在他们心目中，只有这样才能确保完成从未承担过的重要任务。这些人常常用“一手包办”代替了思考。对于他们来说，最大的挑战就是改变工作方式。因为你一向是亲自动手的，所以问题解决起来并不困难。但你必须学会让别人帮你解决问题。
　　康新德就落入了亲力亲为的陷阱。他在生产部做了两年，最近被提升为项目经理，领导一个11人的团队。起初，每当他看到小组的进度落后了，就会挽起袖子亲自上阵。可是他做得越多，手下的人就做得越少，也越来越缺乏积极性。他们会把工间操的时间拖得很长，对显而易见的问题也要等待特别的指示。
　　康本以为自己是在帮助组员们，但组员们则认为这是在暗示他们干活太慢：“瞧，我比你们干得快。”康很快意识到自己的工作不是替整个小组完成任务，而是提供方向、动力和工具。实际上每一位领导人最终都会认识到这一点。这是一个简单的教训，但很容易被忽略：能授权的事情就不要亲自做。
　　要关注管理过程，而不是内容
　　美国巴布森学院的安?唐纳伦教授总结说：“要管理过程，而不是内容。领导的真正工作是掌握日程和信息的流动。但太多的人试图控制细节，他们把自己当成‘工匠’，这只能使下属承担越来越少的责任。”
　　既管理过程又管理内容会大大降低团队的积极性。灵感公司的布莱恩?阿舍原来是一名程序员，最近升任项目经理，负责公司拥有900万用户的旗舰产品――个人财务软件。“作为项目经理，我的职责是把产品开发出来、发布出去、定位和找到目标客户。最大的挑战是在所有的事情中找到优先次序：哪些是可以不做的？哪些是可以授权让下面的人去做的？哪些是可以交给上级去做的？哪些是今天必须作出决定的？”
　　阿舍运用了工程学的思维模式来应对这一挑战。他找出对于项目成功至为关键的三个因素，每天早晨审阅自己当天的工作清单时，他会判断哪些事情有助于累积成功因素，哪些没有助益。他自己做有益的那些工作，把其余的事情在15个工程师中进行分派。“我在无关痛痒的事情上浪费了大量时间。我不得不问自己这样的问题：‘怎样才能既为那些需要帮助的人提供帮助，又不必亲自为此花费时间？’”
　　威信是领导效能之本　没有主见，不能坚持自我当不好领导
　　当上领导是职场生涯的一个重要变化。但你不能前后判若两人。相当一部分新领导急于完成从“团体中的成员”到总司令的转变。这是错误的。阿舍说：“不要一当上领导就架子十足。轻松一点。人们希望看到原来的你，与大家有人情的联系，使人们感觉工作是愉快的。你不能忘了你是谁。”
　　“大家确实喜欢她，而不了解我。”她回忆说，“团队的成员不会自动尊重你的新头衔，所以我得确立自己的做事方式，让他们了解我是如何工作的，通过具体事例显示自己的能力。”她抓了前任忽略的两件大事――理顺和一位关键供应商的关系，为团队的新产品设想更多潜在的功能――细节问题则让组员们放手去做。
　　陶乐的目标很清楚：“把产品做出来。”她选择用自己的方式指导这一过程，最终领导团队克服了前进中的困难。
　　有不当之处要适度修正
　　这并不等于说新领导不需要修正自己的工作方式。阿舍接手新项目不久，一名下属找他单独谈话，而且是有备而来。她拿出了一份列有前任经理优缺点的清单，足足有两页纸，表示希望阿舍成为什么样的领导人。阿舍采纳了建议。“作为经理，我发现有些事情做起来很容易，可以让她感到愉快而有益。”
　　边学习边领导是成功之路　把握角色，外行就能领导内行
　　有些时候，你的新职务把你放到了不熟悉的领域。你手下的人对部门的业务比你更加内行。如何避免外行领导内行带来的尴尬呢？在这样的时候，即便从行政序列上讲团队成员需要你的指导，你也必须向他们学习专业知识。
　　波音公司的布鲁斯?莫拉维克当了七年的制造工程师，拥有出色的技术。但当他被提拔为757改型项目的经理时，他认识到作为对某一领域知之甚少的外行，他必须赢得内行人的尊重。这个项目要加长机身，他也必须扩展自己的技能，并在这同时领导别人。
　　在需要边学习，边领导的时候，如何达到一种平衡呢？莫拉维克说：“不要假充内行，那样注定要失败。我跟所有的下属讲，我们的角色是不同的：我的工作是整合资源，他们是专家。”
　　没有行家就大家共同创业
　　柯里沙平被任命为一家天然气公司的客户开发小组经理时，必须实现个人技能的新跨越。他在油田作业部工作过三年，对自己擅长的领域得心应手、胜任愉快。但现在他必须转入营销和流程设计。而且他面临一个更棘手的基本问题：他的小组在公司中没有先例可循，他和他的组员都不知道如何开展工作。他的解决之道是：“大家一起想办法。”
　　“接到任命时我的脑子里乱极了。我甚至不知道这个小组是干什么的。我向组员们介绍我自己，想看看我是否能起点作用，以及能起什么样的作用。”沙平的组员们和他一样心存疑虑。为了开创客户服务业务，这些人已经在一起工作了四个月，但一直没有一位正式的领导。沙平的自我介绍很快引来了小组成员对他的一场集体面试。
　　“他们反过来向我提了一堆问题。‘你认为这个小组应该怎么搞？我们应该怎样设计流程？你打算怎么支持我们？’”
　　那么新领导是如何回答这些问题的呢？他说：“我承认我也不太清楚做什么。我打算先熟悉一下他们的工作，了解一下他们希望我做些什么，公司希望我们做些什么。当他们发现我没有预设的条条框框时，就说：‘那咱们一起干吧！’”
　　领导单位就是领导每个人　领导每个人，而不是领导团队
　　团队领导并不领导团队，而是领导组成团队的个人。这句话言简意深。成员各有各的优点、缺点，偏好，盲区和痛处。专家称，要想领导一个团队，必须首先学会领导团队中的每一个人。领导是一项一对一的活动。
　　对于波音公司的布鲁斯?莫拉维克来说，带领300人造一架飞机，很难实施一对一的领导。“我手下95%的人都是从其他部门领薪水的，我所能做的只是对他们施加影响。

项目经理如何避免降低软件质量
        大多数软件开发人员本能地认为，项目经理所要确保的项目按时完工与实现高质量的软件是矛盾的。这并不是因为项目经理们不想要高质量的软件，他们只是想在质量的基础之上，能够按时完工和低于或等于预算的情况下，实现这个软件。他们的努力可以成功地在降低成本和开发时间的同时不会对质量造成影响，然而，他们有可能过度地使用了这些技巧。
     尽管以下的这些项目管理技巧至少是很有意义的，在某些情况下，它们甚至是受到尊敬的技巧，但是它们都有造成灾难的潜在可能。
时间盒（Time boxing）     在破坏软件质量的事件列表上，时间盒的应用排在第一位，当您告诉某人在任务必须移交之前，他拥有多长时间来完成这项工作，我说“移交”而不是“完成”，因为在极端情况下，这经常意味着代码并不完善，仅仅是抓紧时间去完成这项工作。
     在大多数情况下，时间盒是有效的，因为它可以做到四件事：
        1. 它迫使开发者能够富有创造性地在他们的预算之内发现解决方案。        2. 它排除了经常添加在软件中不必要的虚饰，而这些虚饰往往并不能增加软件的价值。        3. 它防止开发者过度测试。        4. 目的只是要得到这件产品，在完整的质量评价（QA）阶段将会有详细的测试，希望在此阶段中能够发现代码中存在的问题。
     当存在未知问题，或技术没有经受检验，或没有正确的方法来检验结果的时候，时间盒就无能为力了；当时间盒很小，而且在分配的时间之内并没有可能的办法来实现目标时，这种方法也是无效的。换句话说，时间盒可以很好地解决一些问题，比如充分理解、谨慎评估和执行类的任务；然而，也确实存在时间盒方法不能很好解决的问题，比如研究和发展，还有解决问题等等。
     如果时间盒是正确使用的，那么不应当导致测试到很糟糕的代码，这些糟糕的代码可能会导致数百个小时的诊断和返工。时间盒应当适度使用来确保最低的成本、最快和最高质量的软件。
误期     所有人都要有奋斗的目标，里程碑是一种受到尊敬的方法，它用来激发人们向同一个目标前进，这种动力可以在很短的时间内得到重大成果。然而，每个人都必须承认里程碑所界定的时间并不是每次都能实现，这时就必须要做出新的决定。
     项目经理们必须要在团队中树立里程碑的目标，以此来激励他们前进，但是，当里程碑确立的日期并不现实，而且队员们一再出错，那就应该重新评估这个计划了。如果因为某种特殊情况可以使这个日期不再重要，那么当这个重要日期真正来临的时候，整个团队就只有很小的动力来实现这个里程碑日期。当整个团队连续错过了10个日期，那么第11个日期还重要么？这就像喊着“狼来了”的孩子一样。
     如果在设定的时间线之后并没有任何处罚，那么当错过这个时间的时候就应该强制执行或者移动整个时间线。
     长远来看，不断创造持续的压力和令人迷惑的环境并不能创造出好的软件，开发人员需要能够专心工作的环境。完成项目的日期和关于里程碑日期是否真实的混乱，经常会导致开发人员在开发过程中跳过关键步骤或者造成难以发现的问题。
假装没有错误     在项目管理中，忽视并不是一种幸福。为了成功地完成项目，除了不可阻挡的政治压力，向公司其他的员工介绍项目的风险也是必需的。几乎每个软件开发项目都有延期或超出预算或同时出现这两种情况的风险。
     问题在于，当最终某一时间，这些风险真正变为现实的时候将会引起恐慌，每个人都在混乱中将项目其余的部分组装在一起，整个项目的质量将因为最终轻率的装配而遭受损失。
     当然，当整个项目还没有落后于计划之前，这一问题还不会充分暴露出来，然而，大多数项目都有办法只让项目的某些部分落后一点点，而几乎每个项目都有过于仓促的风险，这是因为管理层在很长一段时间之内都在项目没有任何问题之后得知项目的真实状态。
忽视相关性     在软件开发中，我们有很多技巧可以用来延迟相关性，我们可以停用一些函数、移动相连的基本架构，或者绕开众多的错误处理，在正确使用的情况下，所有这些技巧都可以帮助推进一个项目，然而，当为了完成项目，而这些技巧的成本因素又没有被考虑到整个计划当中时，就埋下了烦恼的种子。
     很多时候，在项目中排列软件开发的顺序是非常具有挑战的事情，相关性并不容易被发现，因此也就不可避免地有很多相关性因素没有被安排到计划当中。为这些不可预见的相关性安排日程表可以让人变得疯狂，因此，压制相关性的方法是经常使用的，但是，如果过度使用了这些技巧，这些费用可能经常会占据项目总成本中很重要的一部分，而且直到项目的最后才会被发现。
     所以要确信您现在所做的对于管理相关性是必需的，不会添加过多的成本，而且是整个软件开发项目中必不可少的一部分。当项目经理不能在成本与降低相关性的便利中取得平衡，那么他们草率地组装的代码将会展示出质量问题。

(链接已失效)-060918
酒吧典英文歌曲集\(4CD) 
连续播放列表
http://mumayi1.999kb.com/pic/2006-08-14/o2ctq35wgqg5hsfbq6a5.mp3
—————————-
第一
01 sealed with a k
02 great pretender
03 unchained melody
04 tennesse waltz
05 the wedding
06 changing partners
07 are you lonesome tonight
08 tammy
09 the last waltz
10 kiss me goodbye
11 all kind of my everything
12 let it be
13 and i love her
14 hey jude
15 summer holiday
16 to sir with love
http://music.stedu.net/xc/1/01.mp3
http://music.stedu.net/xc/1/02.mp3
http://music.stedu.net/xc/1/03.mp3
http://music.stedu.net/xc/1/04.mp3
http://music.stedu.net/xc/1/05.mp3
http://music.stedu.net/xc/1/06.mp3
http://music.stedu.net/xc/1/07.mp3
http://music.stedu.net/xc/1/08.mp3
http://music.stedu.net/xc/1/09.mp3
http://music.stedu.net/xc/1/10.mp3
http://music.stedu.net/xc/1/11.mp3
http://music.stedu.net/xc/1/12.mp3
http://music.stedu.net/xc/1/13.mp3
http://music.stedu.net/xc/1/14.mp3
http://music.stedu.net/xc/1/15.mp3
http://music.stedu.net/xc/1/16.mp3
第二
01 ritht here waiting
02 the greatest love of all
03 yesterday once more
04 saving all my love for you
05 endless love
06 making love out of nothing at all
07 i’ve never been to me
08 moonlight flower
09 you’re my everything
10 one more night
11 you needed me
12 rains & tears
13 don’t for me argentina
14 tell laure i love her
15 young love
16 i don’t like to sleep alone
http://music.stedu.net/xc/2/01.mp3
http://music.stedu.net/xc/2/02.mp3
http://music.stedu.net/xc/2/03.mp3
http://music.stedu.net/xc/2/04.mp3
http://music.stedu.net/xc/2/05.mp3
http://music.stedu.net/xc/2/06.mp3
http://music.stedu.net/xc/2/07.mp3
http://music.stedu.net/xc/2/08.mp3
http://music.stedu.net/xc/2/09.mp3
http://music.stedu.net/xc/2/10.mp3
http://music.stedu.net/xc/2/11.mp3
http://music.stedu.net/xc/2/12.mp3
http://music.stedu.net/xc/2/13.mp3
http://music.stedu.net/xc/2/14.mp3
http://music.stedu.net/xc/2/15.mp3
http://music.stedu.net/xc/2/16.mp3
第三
01 sound of silence
02 yesterday
03 inside of my guitar
04 500 miles
05 sa tears go by
06 the end of the world
07 and i love you so
08 sunshine on my shoulders
09 all i have to do is dr eam
10 evergreen tree
11 morning has broken
12 paloma blanca
13 don’t expect me to be your& nbsp;friend
14 cotton fields
15 rhineston cowboy
16 nobody’s child
http://music.stedu.net/xc/3/01.mp3
http://music.stedu.net/xc/3/02.mp3
http://music.stedu.net/xc/3/03.mp3
http://music.stedu.net/xc/3/04.mp3
http://music.stedu.net/xc/3/05.mp3
http://music.stedu.net/xc/3/06.mp3
http://music.stedu.net/xc/3/07.mp3
http://music.stedu.net/xc/3/08.mp3
http://music.stedu.net/xc/3/09.mp3
http://music.stedu.net/xc/3/10.mp3
http://music.stedu.net/xc/3/11.mp3
http://music.stedu.net/xc/3/12.mp3
http://music.stedu.net/xc/3/13.mp3
http://music.stedu.net/xc/3/14.mp3
http://music.stedu.net/xc/3/15.mp3
http://music.stedu.net/xc/3/16.mp3
第四
01 moon river
02 love is blue
03 diana
04 love me tender
05 never on sunday
06 on!carol
07 frankie
08 tea for two
09 sad movies
10 rhythm of the rain
11 hey paula
12 i went to your wedding
13 run away
14 kiss me honey,honey kiss me
15 auld lang syne
16 i’ll never dance again
http://music.stedu.net/xc/4/01.mp3
http://music.stedu.net/xc/4/02.mp3
http://music.stedu.net/xc/4/03.mp3
http://music.stedu.net/xc/4/04.mp3
http://music.stedu.net/xc/4/05.mp3
http://music.stedu.net/xc/4/06.mp3
http://music.stedu.net/xc/4/07.mp3
http://music.stedu.net/xc/4/08.mp3
http://music.stedu.net/xc/4/09.mp3
http://music.stedu.net/xc/4/10.mp3
http://music.stedu.net/xc/4/11.mp3
http://music.stedu.net/xc/4/12.mp3
http://music.stedu.net/xc/4/13.mp3
http://music.stedu.net/xc/4/14.mp3
http://music.stedu.net/xc/4/15.mp3
http://music.stedu.net/xc/4/16.mp3 
 

——————————————————————
公告栏
———————————
留言板
———————————
看广告玩游戏送QQ币

关于MSHFlexGrid控件和text控件的结合使用
 Private   Sub   Form_Load()                     Text1.Visible   =   False     End   Sub         Private   Sub   MSHFlexGrid1_MouseDown(Button   As   Integer,   Shift   As   Integer,   x   As   Single,   y   As   Single)                     With   MSHFlexGrid1                             Text1.Visible   =   False                             Text1.Move   .Left   +   .CellLeft,   .Top   +   .CellTop,   .CellWidth,   .CellHeight                             Text1.Text   =   .Text                             Text1.Visible   =   True                             Text1.SetFocus                     End   [...]

VB中使用正则表达式
       1. 启动 Microsoft Visual Basic 6.0。
　　2. 在“文件”菜单上，单击“新建项目”。
　　3. 在“新建项目”对话框中，单击“Standard Exe”，然后单击“确定”。
　　默认情况下将创建 Form1。
　　4. 在“项目”菜单上单击“引用”。
　　5. 双击“Microsoft VBScript Regular Expressions 5.5”，然后单击“确定”。
　　6. 在工具箱中，双击“命令按钮”。
　　默认情况下，“Command1”将添加到窗体中。
　　7. 双击“Command1”以打开代码窗口。
　　8. 将下面的代码粘贴到“Command1_Click”事件处理程序：MsgBox(TestRegExp(”is.”, ”IS1 is2 IS3 is4″))
　　注意 这个示例中将对照“IS1 is2 IS3 is4”字符串检查 is. 模式。您可以将句点这一特殊字符（.）用作通配符，这样，搜索模式就能够多匹配并多显示一个字符。如果您在搜索模式中添加两个句点，您会看到两个其他字符。如果您不使用任何句点，您只会看到搜索模式。
　　9. 将以下函数添加到“Command1_click”事件处理程序后：
Function TestRegExp(myPattern As String, myString As String)
   ”Create objects.
   Dim objRegExp As RegExp
   Dim objMatch As Match
   Dim colMatches   As MatchCollection
   Dim RetStr As String
   ” Create a regular expression object.
   Set objRegExp = New RegExp
   ”Set the pattern by using the Pattern property.
   objRegExp.Pattern = myPattern
   ” Set Case Insensitivity.
   objRegExp.IgnoreCase = True
   ”Set global applicability.
   objRegExp.Global = True
   ”Test whether the String can be compared.
   If (objRegExp.Test(myString) = True) Then
   ”Get the matches.
    Set colMatches = objRegExp.Execute(myString)   ” Execute search.
    For Each objMatch In colMatches   ” Iterate Matches collection.
      RetStr = RetStr & ”Match found at position ”
      RetStr = RetStr & objMatch.FirstIndex & ”. Match Value is ””
      RetStr = RetStr & objMatch.Value & ””.” & vbCrLf
    Next
   Else
    RetStr = ”String Matching Failed”
   End If
   TestRegExp = RetStr
End Function

　　10. 在“运行”菜单上，单击“启动”来运行该应用程序。
　　11. 单击“Command1”。
　　此时将出现一个消息框，该消息显示 IS1 is2 IS3 is4 字符串中的所有 is 匹配项。

——————————————————————
公告栏
———————————
留言板
———————————
看广告玩游戏送QQ币