随笔分类 -  VB.Net

摘要:C:\Program Files (x86)\Microsoft Visual Studio 10.0\VC> dumpbin /headers "Program.exe" | findstr machine 阅读全文
posted @ 2019-07-17 14:11 sekihin 阅读(304) 评论(0) 推荐(0) 编辑
摘要:Class TestPatterns '> Public Shared Sub SelfDefining() Console.WriteLine(":: Pattern: Self-definining function") Dim foo As Action = Sub() Console.WriteLine("Hi there!") foo = Sub() ... 阅读全文
posted @ 2013-09-18 15:07 sekihin 阅读(374) 评论(0) 推荐(0) 编辑
摘要:Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 'データ配列 Dim companies() = New Company() { _ New Company("X01", "ABC com", 34), _ New Company("X02", "DEF inc", 19), _ New Company(... 阅读全文
posted @ 2013-09-18 15:06 sekihin 阅读(275) 评论(0) 推荐(0) 编辑
摘要:1.扩展方法 (Extension Methods)给Person类扩展Print方法Public Module PersonExtension _ Public Sub Print(ByVal aPerson As Person) If aPerson IsNot Nothing Then Console.WriteLine("Istance of Person : " & aPerson.ToString()) Else Console.WriteLine("No instance of Person."... 阅读全文
posted @ 2013-09-18 09:03 sekihin 阅读(316) 评论(0) 推荐(0) 编辑
摘要:1.取消了连接符(1)","之后(2)"()"前后(3)"{}"前后(4)XML(5)连接字符"&"后(6)赋值符号"=","&=",":=","+=","-=","*=","/=","\=","^=",">="后(7)式内の二項演算子"+","-",&qu 阅读全文
posted @ 2013-09-17 16:07 sekihin 阅读(486) 评论(0) 推荐(0) 编辑
摘要:1.保持Msgbox的Icon2.可以追加Checkbox,RadioBOx下载 阅读全文
posted @ 2013-09-17 13:52 sekihin 阅读(393) 评论(0) 推荐(0) 编辑
摘要:'スクロールバーの移動FpSpread1.ShowColumn(0, 0, HorizontalPosition.Left)'SetActiveCellの後、LeaveCellを呼び出すDim ss As FarPoint.Win.Spread.SpreadView = FpSpread1.GetRootWorkbookFpSpread1_LeaveCell(FpSpread1, New FarPoint.Win.Spread.LeaveCellEventArgs(ss, rowIdx, colIdx, newRow, newCol))'行書式コピーFpSpread1. 阅读全文
posted @ 2013-08-26 08:18 sekihin 阅读(941) 评论(0) 推荐(0) 编辑
摘要:enc = System.Text.Encoding.GetEncoding("shift-jis") datamodel = CType(FpSpread1.ActiveSheet.Models.Data, Model.DefaultSheetDataModel) Dim enc As System.Text.Encoding Dim WithEvents datamodel As Model.DefaultSheetDataModel Private Sub datamodel_Changed(ByVal sender As Object, ByVal e ... 阅读全文
posted @ 2013-08-22 10:47 sekihin 阅读(582) 评论(0) 推荐(0) 编辑
摘要:''' ''' 下矢印の動作クラス''' ''' Public Class DownArrowActionDouble ' Actionクラスを継承したサブクラスを作成します Inherits FarPoint.Win.Spread.Action Public Event FormartRow(ByVal sender As Object, ByVal e As FormatRowEventArgs) Public Event CheckRow(ByVal sender As Object, 阅读全文
posted @ 2013-08-22 09:13 sekihin 阅读(510) 评论(0) 推荐(0) 编辑
摘要:Dim sour As String = "data source= (DESCRIPTION =(ADDRESS = (PROTOCOL = TCP)(HOST = 192.168.1.1)(PORT" & _ "= 1521)) (CONNECT_DATA =(SERVER = DEDICATED)" & _ "(SERVICE_NAME = ORCL)))"%OraclePath%\network\admin\tnsnames.ora [ServerName]= (DESCRIPTION = (ADDRESS_L 阅读全文
posted @ 2013-04-02 15:15 sekihin 阅读(177) 评论(0) 推荐(0) 编辑
摘要:Imports System.Windows.FormsImports System.DrawingImports Usac.ControlPublic Class ExDataGridView Inherits USGrid Public Sub New() MyBase.new() End Sub Public pBorderColor As Color = SystemColors.ControlDark <System.ComponentModel.Category("カスタム")> _ <System.ComponentModel.D... 阅读全文
posted @ 2012-11-12 13:23 sekihin 阅读(483) 评论(0) 推荐(0) 编辑
摘要:Application.CurrentCulture = New System.Globalization.CultureInfo("ja-JP", false) Dim dt As FarPoint.Win.Spread.CellType.DateTimeCellType = New FarPoint.Win.Spread.CellType.DateTimeCellType() dt.CalendarSurroundingDaysColor = System.Drawing.SystemColors.GrayText dt.DateD... 阅读全文
posted @ 2011-12-26 14:06 sekihin 阅读(1691) 评论(0) 推荐(0) 编辑
摘要:'フォームロードイベントPrivate Sub Form1_Load(sender As Object, e As System.EventArgs) fpSpread1.EditModePermanent = True ' 編集中セルの Enterキー押下による動作を無効とします。 Dim inputmap1 As FarPoint.Win.Spread.InputMap inputmap1 = fpSpread1.GetInputMap(FarPoint.Win.Spread.InputMapMode.WhenAncestorOfFocused) inputmap1.Put 阅读全文
posted @ 2011-12-26 12:53 sekihin 阅读(3821) 评论(0) 推荐(0) 编辑
摘要:找了好久找到的,随不是很明显吧。 1. 服务器上面取数据,填充数据集,转换为二进制格式. 2. 通过WebService把byte[]格式的数据发送到客户端 3.客户端接收到byte[]格式的数据,对其进行反序列化,得到数据集 Code highlighting produced by Actipro CodeHighlighter (freeware) http://www.CodeHi... 阅读全文
posted @ 2008-12-26 09:57 sekihin 阅读(1056) 评论(0) 推荐(0) 编辑
摘要:Code highlighting produced by Actipro CodeHighlighter (freeware) http://www.CodeHighlighter.com/ --> PrivateSubGrid_EditingControlShowing(ByValsenderAsObject,ByValeAsSystem.Windows.Form... 阅读全文
posted @ 2008-10-28 15:14 sekihin 阅读(1015) 评论(0) 推荐(0) 编辑
摘要:Code highlighting produced by Actipro CodeHighlighter (freeware) http://www.CodeHighlighter.com/ -->Grid.RowHeadersDefaultCellStyle.Padding=NewPadding(Grid.RowHeadersWidth) 阅读全文
posted @ 2008-10-28 14:49 sekihin 阅读(3390) 评论(1) 推荐(0) 编辑
摘要:Code highlighting produced by Actipro CodeHighlighter (freeware) http://www.CodeHighlighter.com/ --> PrivateSubGrid_RowPostPaint(ByValsenderAsSystem.Object,ByValeAsSystem.Windows.Forms.... 阅读全文
posted @ 2008-10-28 14:46 sekihin 阅读(1407) 评论(1) 推荐(0) 编辑
摘要:1.添加PrintDocument控件 2.绑定PrintDocument的PrintPage方法 Code highlighting produced by Actipro CodeHighlighter (freeware) http://www.CodeHighlighter.com/ --> PrivateSubPrintDocument1_PrintPage(ByVa... 阅读全文
posted @ 2008-10-28 10:08 sekihin 阅读(573) 评论(0) 推荐(0) 编辑
摘要:Code highlighting produced by Actipro CodeHighlighter (freeware) http://www.CodeHighlighter.com/ --> DiminfoAsSystem.Diagnostics.ProcessStartInfo info=NewSystem.Diagnos... 阅读全文
posted @ 2008-10-21 10:19 sekihin 阅读(3902) 评论(0) 推荐(0) 编辑
摘要:VB.NET Black Book TABLE OF CONTENT: Chapter 01 - Essential Visual Basic Chapter 02 - The VB Language: Operators, Conditionals, and Loops Chapter 03 - The VB Language: Procedures, S... 阅读全文
posted @ 2008-09-12 09:32 sekihin 阅读(496) 评论(0) 推荐(0) 编辑

点击右上角即可分享
微信分享提示