Jump To VB.NET

    1 

    2     Private Function GetValueString(ByVal obj As Object) As String

    3         If (IsDBNull(obj)) Then Return "NULL"

    4 

    5         Select Case obj.GetType.FullName

    6 

    7             Case "System.Boolean"

    8                 If (obj = True) Then

    9                     Return "True"

   10                 Else

   11                     Return "False"

   12                 End If

   13 

   14             Case "System.String"

   15                 Dim str As String = obj

   16                 Return "N'" + str.Replace("'", "''") + "'"

   17 

   18             Case "System.DateTime"

   19                 Return "'" + obj.ToString() + "'"

   20 

   21             Case "System.Drawing.Image"

   22                 Return "NULL"

   23 

   24             Case "System.Drawing.Bitmap"

   25                 Return "NULL"

   26 

   27             Case "System.Byte[]"

   28                 Return "0x" + GetHexString(obj)

   29 

   30             Case Else

   31                 Return obj.ToString()

   32 

   33         End Select

   34     End Function

   35 

   36     Private Function GetHexString(ByRef bytes() As Byte) As String

   37         Dim sb As New System.Text.StringBuilder

   38         Dim b As Byte

   39         Dim i As Integer = 0

   40 

   41         For Each b In bytes

   42             i += 1

   43             sb.Append(b.ToString("X2"))

   44             If i > 10 Then

   45                 Return sb.ToString()

   46             End If

   47         Next

   48 

   49         Return sb.ToString()

   50     End Function

  <CTypes>

    <CType value ="10">Black</CType>

    <CType value ="11">Blue</CType>

    <CType value ="12">Red</CType>

    <CType value ="13">Green</CType>

    <CType value ="14">Cyan</PType>

    1         For Each dzitem As string In arrData

    2             strKey = dzitem

    3            

    4 

    5             Dim img As System.Drawing.Image

    6             Dim asm As System.Reflection.Assembly = Assembly.GetExecutingAssembly()

    7             Dim imageStream As System.IO.Stream = asm.GetManifestResourceStream("woojjaApplication." & strKey & ".png")

    8             img = Image.FromStream(imageStream)

    9 

   10             imglist.Images.Add(strKey, img)

   11 

   12         Next

    1 <?xml version="1.0" encoding="UTF-8" standalone="yes"?>

    2 <assembly xmlns="urn:schemas-microsoft-com:asm.v1" manifestVersion="1.0">

    3   <assemblyIdentity version="1.0.0.0" name="MyApplication.app"/>

    4   <trustInfo xmlns="urn:schemas-microsoft-com:asm.v2">

    5     <security>

    6       <requestedPrivileges xmlns="urn:schemas-microsoft-com:asm.v3">

    7         <requestedExecutionLevel level="asInvoker" uiAccess="false"/>

    8       </requestedPrivileges>

    9     </security>

   10   </trustInfo>

   11 </assembly>

D:\wizExpert\Source\woojja\Deploy>"C:\Program Files\Microsoft SDKs\Windows\v7.0A\

bin\mt.exe" -manifest "woojja.exe.manifest" -outputresource:"woojja.exe";#1

Microsoft (R) Manifest Tool version 5.2.3790.2076

Copyright (c) Microsoft Corporation 2005.

All rights reserved.

D:\wizExpert\Source\woojja\Deploy>

   15   <PlayerTypes>

   16     <PlayerType category="Default" value ="0" enable="True" Default="True">Transparent</PlayerType>

   17     <PlayerType category="Normal" value ="10" enable="True">일반-검정</PlayerType>

   18     <PlayerType category="Normal" value ="11" enable="True">일반-파랑</PlayerType>

   19     <PlayerType category="Normal" value ="12" enable="True">일반-빨강­</PlayerType>

   20     <PlayerType category="Normal" value ="13" enable="True">일반-초록</PlayerType>

   21     <PlayerType category="Normal" value ="14" enable="True">일반-하늘색</PlayerType>

   22     <PlayerType category="PopUp" value ="20" enable="False">팝업-검정</PlayerType>

   23     <PlayerType category="PopUp" value ="21" enable="False">팝업-파랑</PlayerType>

   24     <PlayerType category="PopUp" value ="22" enable="False">팝업-빨강­</PlayerType>

   25     <PlayerType category="PopUp" value ="23" enable="False">팝업-초록</PlayerType>

   26     <PlayerType category="PopUp" value ="24" enable="False">팝업-하늘색</PlayerType>

   27     <PlayerType category="SimpleCircle" value ="30" enable="True">단순 원형-파랑</PlayerType>

   28     <PlayerType category="SimpleCircle" value ="31" enable="True">단순 원형-빨강­</PlayerType>

   29     <PlayerType category="SimpleCircle" value ="32" enable="True">단순 원형-검정</PlayerType>

   30     <PlayerType category="SimpleSquare" value ="40" enable="True">단순 사각-파랑</PlayerType>

   31     <PlayerType category="SimpleSquare" value ="41" enable="True">단순 사각-빨강­</PlayerType>

   32     <PlayerType category="SimpleSquare" value ="42" enable="True">단순 사각-검정</PlayerType>

   33   </PlayerTypes>

   63         Friend ReadOnly Property _10() As System.Drawing.Bitmap

   64             Get

   65                 Dim obj As Object = ResourceManager.GetObject("_10", resourceCulture)

   66                 Return CType(obj,System.Drawing.Bitmap)

   67             End Get

   68         End Property

   69 

   70         Friend ReadOnly Property _11() As System.Drawing.Bitmap

   71             Get

   72                 Dim obj As Object = ResourceManager.GetObject("_11", resourceCulture)

   73                 Return CType(obj,System.Drawing.Bitmap)

   74             End Get

   75         End Property

   76 

   77         Friend ReadOnly Property _12() As System.Drawing.Bitmap

   78             Get

   79                 Dim obj As Object = ResourceManager.GetObject("_12", resourceCulture)

   80                 Return CType(obj,System.Drawing.Bitmap)

   81             End Get

   82         End Property

   83 

   84         Friend ReadOnly Property _13() As System.Drawing.Bitmap

   85             Get

   86                 Dim obj As Object = ResourceManager.GetObject("_13", resourceCulture)

   87                 Return CType(obj,System.Drawing.Bitmap)

   88             End Get

   89         End Property

    1 Option Strict On

    2 Option Explicit On

    3 

    4 Imports System

    5 

    6 Namespace My.Resources

    7 

    8     <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "4.0.0.0"), _

    9      Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _

   10      Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _

   11      Global.Microsoft.VisualBasic.HideModuleNameAttribute()> _

   12     Module Resources_Partial

   13 

   14         Private resourceMan As Global.System.Resources.ResourceManager

   15 

   16         Private resourceCulture As Global.System.Globalization.CultureInfo

   17 

   18         '''<summary>

   19         '''  Returns the cached ResourceManager instance used by this class.

   20         '''</summary>

   21         <Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _

   22         Friend ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager

   23             Get

   24                 If Object.ReferenceEquals(resourceMan, Nothing) Then

   25                     Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("woojjaApplication.Resources", GetType(Resources).Assembly)

   26                     resourceMan = temp

   27                 End If

   28                 Return resourceMan

   29             End Get

   30         End Property

   31 

   32         '''<summary>

   33         '''  Overrides the current thread's CurrentUICulture property for all

   34         '''  resource lookups using this strongly typed resource class.

   35         '''</summary>

   36         <Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _

   37         Friend Property Culture() As Global.System.Globalization.CultureInfo

   38             Get

   39                 Return resourceCulture

   40             End Get

   41             Set(ByVal value As Global.System.Globalization.CultureInfo)

   42                 resourceCulture = value

   43             End Set

   44         End Property

   45 

   46         Public Function GetBitmapByName(ByVal strName As String) As System.Drawing.Bitmap

   47 

   48             Dim obj As Object = ResourceManager.GetObject(strName, resourceCulture)

   49             Return CType(obj, System.Drawing.Bitmap)

   50 

   51         End Function

   52 

   53         Public Function GetStringByName(ByVal strName As String) As String

   54 

   55             Dim obj As Object = ResourceManager.GetObject(strName, resourceCulture)

   56             Return CType(obj, String)

   57 

   58         End Function

   59 

   60     End Module

   61 End Namespace

   62 

    1 Public Class frmCounter

    2 

    3     Dim ActionStack As Stack(Of String)

    4 

    5     Public Sub New()

    6 

    7         ' This call is required by the designer.

    8         InitializeComponent()

    9 

   10         ' Add any initialization after the InitializeComponent() call.

   11         ActionStack = New Stack(Of String)

   12 

   13     End Sub

   14 

   15     Private Sub Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pbBPassFore.Click, pbBPassCross.Click, pbBPassError.Click, pbBCancel.Click, pbRPassFore.Click, pbRPassCross.Click, pbRPassError.Click, pbRCancel.Click

   16         Dim pb As PictureBox = CType(sender, PictureBox)

   17         Dim buttonName As String = pb.Name

   18         Select Case buttonName

   19             Case "pbBPassFore"

   20                 nupBFore.UpButton()

   21             Case "pbBPassCross"

   22                 nupBCross.UpButton()

   23             Case "pbBPassError"

   24                 nupBError.UpButton()

   25             Case "pbRPassFore"

   26                 nupRFore.UpButton()

   27             Case "pbRPassCross"

   28                 nupRCross.UpButton()

   29             Case "pbRPassError"

   30                 nupRError.UpButton()

   31             Case "pbRCancel"

   32                 'VB 에는break나 Continue 문이 없는 관계로 ^^'

   33                 CancelCount()

   34             Case "pbBCancel"

   35                 CancelCount()

   36         End Select

   37 

   38         If Not (String.Equals(buttonName, "pbRCancel") Or String.Equals(buttonName, "pbBCancel")) Then

   39             ActionStack.Push(buttonName)

   40         End If

   41 

   42     End Sub

   43 

   44     Private Sub CancelCount()

   45         If ActionStack.Count < 1 Then

   46             Return

   47         End If

   48         Dim buttonName As String = ActionStack.Pop()

   49         Select Case buttonName

   50             Case "pbBPassFore"

   51                 nupBFore.DownButton()

   52             Case "pbBPassCross"

   53                 nupBCross.DownButton()

   54             Case "pbBPassError"

   55                 nupBError.DownButton()

   56             Case "pbRPassFore"

   57                 nupRFore.DownButton()

   58             Case "pbRPassCross"

   59                 nupRCross.DownButton()

   60             Case "pbRPassError"

   61                 nupRError.DownButton()

   62         End Select

   63     End Sub

   64 

   65 End Class

   66 

   67