2006年2月9日

摘要: 网上的确有,不过不知道为什么我那里运行不了。这里提供的代码是paint在panel上的。.net真好啊,不用设备上下文,gethdc默认还是隐藏的……我找来找去都找不到这个方法……几点注意:1.记得要把dll初始化,function cdtInit。两个参数,在网上找吧。2.要redraw panel,用:Panel1.Invalidate()。Pu... 阅读全文

posted @ 2006-02-09 16:56 岳洋 阅读(559) 评论(0) 推荐(0) 编辑


2006年2月8日

摘要: http://www.5ivb.net/Info/104/Info34741/((http|https|ftp):(\/\/|\\\\)((\w)+[.]){1,}(net|com|cn|org|cc|tv|[0-9]{1,3})(((\/[\~]*|\\[\~]*)(\w)+)|[.](\w)+)*(((([?](\w)+){1}[=]*))*((\w)+){1}([\&](\w)+[\... 阅读全文

posted @ 2006-02-08 11:43 岳洋 阅读(937) 评论(1) 推荐(0) 编辑


2006年2月7日

摘要: 刚才那个是不行的,只读第一个包的网页源代码……这个是用webclient的,有点.net的感觉了。PrivateSubButton1_Click()SubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickDimdataAsStringDimdata2As... 阅读全文

posted @ 2006-02-07 12:45 岳洋 阅读(736) 评论(2) 推荐(0) 编辑

摘要: PrivateSubButton1_Click()SubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickDimdataAsStringDimdata2AsStringTrydata=CType(AxInet1.OpenURL(TextBox1.Text),String)dat... 阅读全文

posted @ 2006-02-07 11:13 岳洋 阅读(799) 评论(0) 推荐(0) 编辑


2006年1月31日

摘要: Subfindfile()Subfindfile(ByReffdAsScripting.Folder,ByValctAsInt16)DimsfdAsScripting.FolderDimfAsScripting.FileForEachfInfd.FilesTextBox1.Text=TextBox1.Text+Chr(13)+Chr(10)+Space(ct*2)+f.NameNextForEac... 阅读全文

posted @ 2006-01-31 19:52 岳洋 阅读(177) 评论(0) 推荐(0) 编辑


2005年12月31日

摘要: 很久没有做过circleliner了,主要是不知道.net里面怎么画图。ImportsSystem.Windows.FormsImportsSystem.DrawingPublicClasscircleClasscircleInheritsUserControlPublicBackgroundColorAsColor=Color.GreenYellowPublicInsideColorAsColo... 阅读全文

posted @ 2005-12-31 17:41 岳洋 阅读(231) 评论(0) 推荐(0) 编辑


2005年12月18日

摘要: ImportsSystemImportsSystem.DrawingImportsSystem.Windows.FormsNamespaceMouseEventNamespaceMouseEvent'SummarydescriptionforForm1.PublicNotInheritableClassForm1ClassForm1InheritsSystem.Windows.Forms.Form... 阅读全文

posted @ 2005-12-18 11:33 岳洋 阅读(514) 评论(0) 推荐(0) 编辑

摘要: http://msdn.microsoft.com/library/chs/default.asp?url=/library/CHS/cpref/html/frlrfsystemwindowsformsmouseeventargsclassxtopic.asp 阅读全文

posted @ 2005-12-18 11:10 岳洋 阅读(180) 评论(0) 推荐(0) 编辑

摘要: 写文件时换行的问题有时候可能会用一个变量来保存多行数据:"这是第一行.这是第二行.这是第三行.……………………”我试着在行后添加换行符chr(10)或回车符chr(13)来实现换行,但是效果并不好:strLines="这是第一行."+chr(10) _+"这是第二行."+chr(10) _+... 阅读全文

posted @ 2005-12-18 09:54 岳洋 阅读(699) 评论(0) 推荐(0) 编辑

摘要: DimkakaAsStringFileOpen(1,"f:\test.txt",OpenMode.Input)WhileEOF(1)=FalseInput(1,kaka)TextBox1.AppendText(kaka)TextBox1.AppendText(Chr(13)+Chr(10))EndWhileFileClose(1)没想到沦落到用.net还要用vb6的方法……... 阅读全文

posted @ 2005-12-18 09:42 岳洋 阅读(324) 评论(0) 推荐(0) 编辑


Copyright © 2024 岳洋
Powered by .NET 8.0 on Kubernetes