질문 내용 컴퓨터 3대가 있고 2대에서 VBA 를 통해서 일반프린터가 아닌 라벨프린터를 선택해 출력을 하려합니다 ​ 1번컴 : Ne06:에 있는 \\공컴\라벨프린터 2번컴 : Ne05:에 있는 \\공컴\라벨프린터 3번컴 : 일반프린터, 라벨프린터가 설치된 컴퓨터 ​ 문제는 1번컴과 2번컴에서 Ne번호가 다르다는 것입니다. 해당 컴퓨터에서 설치된 프린터 목록을 다 알아낸다음 Instr 함수를 통해 "라벨프린터"가 들어가있으면 해당 프린터를 pName 변수에 string으로 저장할 수 있을것같은데, 해당 컴에 설치된 프린터 목록을 배열에 저장하는 법을 모르겠습니다. ​ ​ 답변 내용 아래 처럼 간단하게 해당 컴퓨터의 설치 된 모든 프린터 목록들을 가져와서 말씀하신대로 Instr로 포함 된 글자를 통해 걸러도..

만약, 도형이미지를 여러 개의 슬라이드에 있는 것들을 모두 바꾸고 싶을 때 아래의 코드를 이용하여 바꾼다. ​ Sub ChangeShapeColor() Dim oSh As Shape Dim oSl As Slide ' 파워포인트의 슬라이드를 반복 For Each oSl In ActivePresentation.Slides ' 슬라이드쇼 안에 도형 개체를 찾아 반복 For Each oSh In oSl.Shapes ' 만약 지금 컬러가 비교할 컬러라면 If oSh.Fill.ForeColor.RGB = RGB(169, 209, 142) Then ' 다른 색상으로 변경 한다. oSh.Fill.ForeColor.RGB = RGB(91, 155, 213) End If Next oSh Next oSl End Sub

private void test() { // 스크린 캡쳐 테스트 string[] szCom = new string[] {@"shell screencap -p /sdcard/Pictures/Screenshots/"+s+".png", @"pull /sdcard/Pictures/Screenshots/"+s+".png "+output_path+@"\"+s+".png"}; foreach (string sz in szCom) { string output = getDeviceInfo(sz); } } private static string getDeviceInfo(string command) { ProcessStartInfo psInfo = new ProcessStartInfo(); psInfo.FileName = @..

Thread.Sleep() 이 있지만, 간단하게 사용할 때는 아래와 같이도 사용할 수 있다. private void test() { // 테스트 for (i = 0; i= ThisMoment) { System.Windows.Forms.Application.DoEvents(); ThisMoment = DateTime.Now; } return DateTime.Now; }

DataBinding 안되어있는 DataGridView를 DataTable로 변환 하는 코드 ''' ''' DataGridView To DataTable ''' ''' 변환 할 DataGridView를 넣는다. ''' Private Function DataGridViewToDataTable(ByRef dgv As DataGridView) As DataTable Dim _dt As DataTable = New DataTable If _dt.Columns.Count = 0 Then For Each dgdr As DataGridViewColumn In dgv.Columns _dt.Columns.Add(dgdr.HeaderText) Next End If For Each row As DataGridViewRow ..

DataBinding 없이 DataTable을 DataGridView로 넣는 코드 자주 쓰지는 않지만 Binding 없이 사용해야 할 경우 있기 때문에 저장! Private Function DataTableToDataGridView(ByVal dt As DataTable, ByVal dgv As DataGridView) As DataGridView Dim _dgv As DataGridView = dgv For Each col As DataColumn In dt.Columns Dim c As DataGridViewTextBoxColumn = New DataGridViewTextBoxColumn() With { .HeaderText = col.ColumnName } dgv.Columns.Add(c) Next..