VB.NET
â é åã®å®æ°å * å¥ã«VBã ãã§ãªãã.NET(C#)ã§ããConstã使ã£ã¦ãé åã®å®æ°åãã§ããªã => 代ããã«ãReadonly Sharedãã使ç¨ãã æ§æ Public Readonly Shared ConstArray As String() = {"a", "b"} åèæç® http://qiita.com/tanakaworld/items/eda6â¦
ãµã³ãã« 'ãã¼ã¿é å Dim values As New List(Of Company) From { New Company With {.Id = "X001", .CountryCode = "JP", .Type = "Car", .Name = "Toyota", .Point = 34}, New Company With {.Id = "X002", .CountryCode = "JP", .Type = "Etc", .Name = â¦
Linqã®ç¨®é¡ 1) ã¯ã¨ãªæ§æï¼query syntaxï¼ 2) ã¡ã½ããæ§æï¼method syntaxï¼ éãã¯... è¦ãæ¹ãæ©ã ã¯ã¨ãªå¼ Dim query = From x In values Select x.Id ã¡ã½ããå½¢å¼ Dim query = values.Select(Function(x) => x.Id) ã¯ã¨ãªæ§æ http://homepage1.niftâ¦
â ãµã³ãã«ã«ä½¿ç¨ããã¯ã©ã¹ã»ãã¼ã¿ * ã¯ã©ã¹ NotInheritable Class Company Public Property Id As String Public Property CountryCode As String Public Property FieldType As String Public Property Name As String Public Property Point As Integerâ¦
â Select-caseæ(C#ã®Switch-case) æ§æ * ãbreakããæ¡ä»¶ã®å¾ã®ã:ãã¯ä¸è¦ã Select Case ãæ¯è¼å¯¾è±¡ã Case ãæ¡ä»¶1ã ãå¦ç1ã Case ãæ¡ä»¶2ã ãå¦ç2ã Case Else ãå¦ç3ã End Select æ¡ä»¶æ * æ¡ä»¶ã«ã¯ä»¥ä¸ã®ããã«æå®ã§ããã詳細ã¯ã以ä¸ã®ãµâ¦
ã¯ããã« * åå¨ãã§ãã¯ã«å½¹ç«ã¤ãAnyãç´¹ä»ã ãµã³ãã« ' ãã¼ã¿ãã¼ãã«ãä½ã Dim dt As New DataTable("testTable") With dt.Columns .Add("ID", GetType(Integer)) .Add("Name", GetType(String)) .Add("Age", GetType(Integer)) End With For i As Inâ¦
â ã¯ããã« http://blogs.yahoo.co.jp/dk521123/22569878.html ã§æ±ã£ãæ¡å¼µã¡ã½ããã¯ãVB.NETã§ãæ¸ããã®ã§ã¡ã¢ã â 注æ http://www.atmarkit.co.jp/fdotnet/bookpreview/kisokaravb_1102/kisokaravb_1102_01.html ããæç² * æ¡å¼µã¡ã½ããã¯ã¢ã¸ã¥ã¼ã«â¦
ã¯ããã« http://dobon.net/vb/dotnet/vb2cs/vb2cstable.html ãå©ããã¾ãã â abstract * "MustInherit" "Overrides" ã§å®è£ ãµã³ãã« Public MustInherit Class BaseChartModel Public Overrides Sub Xxxx() â interface * "Implements" ã§å®è£ ãµã³ãã« â¦
ãµã³ãã« Public Class SampleTuple Shared Sub Main() Dim tuple1 = Tuple.Create("Mike", 42, Date.Now) Console.WriteLine(tuple1.Item1) Console.WriteLine(tuple1.Item2) Console.WriteLine(tuple1.Item3) Dim tuple2 As Tuple(Of String, Integer, Datâ¦
â 使ç¨ä¸ã®æ³¨æ Dictionary * 以ä¸ã®é¢é£è¨äºãåç §ã®ãã¨ã http://blogs.yahoo.co.jp/dk521123/21978660.html â å®£è¨ / New List Dim list = New List(Of String) Dictionary Dim words As New Dictionary(Of String, String) â åæå / å¤ã®åå¾ List Diâ¦
åå空éã®ã¨ã¤ãªã¢ã¹ æ§æ Imports ãã¨ã¤ãªã¢ã¹åã = ãåå空éã 使ç¨æ¹æ³ ãã¨ã¤ãªã¢ã¹åã.ãã¯ã©ã¹åãªã©ã åèæç® http://dobon.net/vb/dotnet/vb6/importsvb.html MSDN http://msdn.microsoft.com/ja-jp/library/7f38zh8x.aspx http://msdn.micrâ¦
ã¹ãã¢ãããã·ã¼ã¸ã£ã®è¤æ°ã®çµæãæ±ã * SqlDataAdapterã¯ã©ã¹ã使ç¨ãã ãµã³ãã« ã¹ãã¢ã / SelectCompanyInfo CREATE PROCEDURE SelectCompanyInfo AS SELECT * FROM Company SELECT * FROM Brunch VB / WebForm1.aspx * GridView x 2ããã ãã VB /â¦
ä½æã㢠* é常ã«åèã«ãªã£ã! http://www.youtube.com/watch?v=mkEuex1Lx54&feature=related ãµã³ãã« * é常ã«ç°¡å!! ã¹ãã¢ãï¼SampleStoredProcedureï¼ CREATE PROCEDURE SampleStoredProcedure @personAge int AS SELECT Id, Name, Address, Email, Aâ¦
â æ§æ Public Enum [åæå] [å¤1] ... End Enum ãµã³ãã« Namespace Models Public Class PersonModel Private Property _Gender As Gender Public Property Gender As Gender Get Return Me._Gender End Get Set(ByVal value As Gender) Me._Gender = valâ¦
æºå [1] ãã¡ã¤ã«ãå³ã¯ãªãã¯ãã[ããããã£]ãé¸æ [2] ããããã£ã®ããã«ãã¢ã¯ã·ã§ã³ãããåãè¾¼ã¾ãããã½ã¼ã¹ãã«å¤æ´ ãµã³ãã« ' XMLãã¡ã¤ã«ã«ä¿åãããªãã¸ã§ã¯ãã®ããã®ã¯ã©ã¹ Public Class Class1 Public Number As Integer Public Messageâ¦
解決æ¹æ³ Obsoleteå±æ§ã使ç¨ããã Obsoleteï¼æ代é ãã®ãé³è åãã æ§æ [Obsolete("ãã¡ãã»ã¼ã¸ã", Boolean)] 第ä¸å¼æ°ï¼ã³ã³ãã¤ã«æã®ã¡ãã»ã¼ã¸ 第äºå¼æ°ï¼ã³ã³ãã¤ã«ã¨ã©ã¼ OR è¦å * trueï¼ã³ã³ãã¤ã«ã¨ã©ã¼ * falseï¼è¦å åèæç® http://www.â¦
â å¯å¤é·å¼æ°ã¨ã¯ï¼ ã¡ã½ããã®å¼æ°ãå¯å¤ã«ãã â æ§æ Public Sub SampleMethod(ByVal ParamArray Values() As String()) åèæç® http://blog.livedoor.jp/akf0/archives/51250084.html é¢é£è¨äº ãC#ãå¯å¤é·å¼æ° https://blogs.yahoo.co.jp/dk521123/2â¦
ãµã³ãã« Protected Sub Button1_Click(sender As Object, e As EventArgs) Handles Button6.Click 'æµ®åå°æ°ç¹æ°ã調ã¹ã If Regex.IsMatch(Me.TextBox3.Text, "^[\-+]?[0-9]*\.?[0-9]+$") Then Me.Label1.Text = String.Format("{0}ã¯æµ®åå°æ°ç¹æ°ã§ãã",â¦
â ã©ã ãå¼ ã©ã ãå¼ã®åºæ¬æ§æ Function(左辺) å³è¾º ã©ã ãå¼æ§æã®å·¦è¾º Function() å³è¾º ' ãã©ã¡ã¼ã¿ããªãå ´å Function(param) å³è¾º ' ãã©ã¡ã¼ã¿ã1ã¤ã®å ´å Function(param1, param2) å³è¾º ' ãã©ã¡ã¼ã¿ã2ã¤ä»¥ä¸ã®å ´å ã©ã ãå¼æ§æã®å·¦è¾º Function(â¦
TextFieldParserã¯ã©ã¹ * CSVãã¡ã¤ã«ãèªã¿è¾¼ã¿ã«ä½¿ç¨ * .NET 2.0以éã§å¯¾å¿ * åå空é:Microsoft.VisualBasic.FileIOã ããC#ã§ã使ãã å®ç¾© Dim parser As New TextFieldParser("aaa.csv", _ System.Text.Encoding.GetEncoding("Shift_JIS")) åºåãæâ¦
â ã³ã³ã¹ãã©ã¯ã¿ æ§æï¼å¼ã³å Sub New (ããã©ã¡ã¼ã¿ã) ãå®è¡ããæã End Sub ãµã³ãã« ' å¼ã³åºãå´ Dim person As New Person("Mike", 29) ' å¼ã³åºãå Sub New (ReVal name As String, ReVal age As Integer) Me.Name = name Me.Age = age End Sub â¦
â é¢æ°(ããã·ã¼ã¸ã£ã¼) * ã¡ã½ãããããããã·ã¼ã¸ã£ã¼ãã¨å¼ã¶ã ã1ãæ»ãå¤ãªãã®é¢æ° * ããµãããã·ã¼ã¸ã£ãã¨å¼ã¶ã Private Sub ãã¡ã½ããåã(ãå¼æ°ã) ' å¦ç End Sub ãµã³ãã« Private Sub SayHello(name As String) MsgBox "Hello world, " &â¦
â IFæ æ§æ If ãæ¡ä»¶1ã Then ãæ¡ä»¶1ãæç«ããå ´åã ElseIf ãæ¡ä»¶2ã Then ãæ¡ä»¶2ãæç«ããå ´åã Else ãæ¡ä»¶1ã2ãæç«ããªãã£ãå ´åã End If æ¡ä»¶å¤æ * ã=ã : å 容ãçãã (C#ã§ããã¨ã==ã) * ã<>ã : å 容ãçãããªã (C#ã§ããã¨ã!=â¦
â ã«ã¼ã Foræ For ãåæå¤ã To ãçµäºå¤ã Step ãå¢æ¸å¤ã ãå¦çã Next http://www.vb-dotnet.com/general5/index.html For Eachæ For Each ãã³ã¬ã¯ã·ã§ã³å ã®è¦ç´ ãæ ¼ç´ããå¤æ°ã In ãã³ã¬ã¯ã·ã§ã³ã ãå¦çã Next http://www.vb-dotnet.com/geâ¦
Option Explicit * ãã¡ã¤ã«å ã®ãã¹ã¦ã®å¤æ°ãæ示çã«å®£è¨ããããå¼·å¶ãã ãè£è¶³ã * Explicitï¼ã¨ã¯ã¹ããªã·ããï¼ï¼æ確ãªãæç½ã« åèæç® http://homepage1.nifty.com/rucio/main/shokyu/jugyou3.htm Option Strict * Aså¥ã«ããå宣è¨ãç°ãªãåã¸â¦
ã³ã¼ãã£ã³ã°è¦ç´ * èªåã®ç¥èã¨ãã¦ãç¥ããªãã£ãé ç®ããããã¯ããã¾ãæèããã¦ããªãã£ãé ç®ãè¨è¿°ãã¦ãã ãã¼ãã³ã°ã«ã¼ã« ã¡ã½ãã ã³ã³ãã¼ã¿ã¡ã½ããåã¯ãTo + ãªãã¸ã§ã¯ãåããä½¿ç¨ Public Enum Answer Correct Bigger Less End Enum Pubâ¦
VBãã¯ããã£ããåå¼·ããå ´å http://www.atmarkit.co.jp/fdotnet/vb6tonet2/index/index.html C#ã¨ã®ææ³ã®éã * 調ã¹ã¦ã¿ãã¨ããã ããããããããªãã£ã(以ä¸ã®ãµã¤ãåç §)ã®ã§ãå¿ è¦ãªé ç®ã ãæç²ã http://blogs.wankuma.com/jeanne/archive/2007/â¦