Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Cita de: Ikillnukes en 7 Febrero 2014, 19:05 PMYa me comentaron que cuando reiniciase Windows el proceso de vaciado iba a continuar... Pamplinas....
.
.Cita de: http://www.codeproject.com/Articles/3313/Monitoring-a-Printer-Queue-from-VB-NETCódigo (vbnet,3,4) [Seleccionar]Public Enum Job_Notify_Field_Indexes
'...
JOB_NOTIFY_FIELD_TOTAL_PAGES = &H14
JOB_NOTIFY_FIELD_PAGES_PRINTED = &H15
'...
End Enum
For Each c As Control In Me.Controls
c.BackColor = Color.Red
Next cforeach (Control c in this.Controls) {
c.BackColor = Color.Red;
}
//=======================================================
//Service provided by Telerik (www.telerik.com)
//Conversion powered by NRefactory.
//Twitter: @telerik
//Facebook: facebook.com/telerik
//======================================================= Private Shadows Sub Shown() Handles MyBase.Shown
SetControlsBackColor(Me.Controls, Color.Red)
End Sub
Private Sub SetControlsBackColor(ByVal Collection As Control.ControlCollection,
ByVal Backcolor As Color)
For Each c As Control In Collection
If c.Controls.Count <> 0 Then
SetControlsBackColor(c.Controls, Backcolor)
End If
c.BackColor = Backcolor
Next c
End Sub
private new void Shown()
{
SetControlsBackColor(this.Controls, Color.Red);
}
private void SetControlsBackColor(Control.ControlCollection Collection, Color Backcolor)
{
foreach (Control c in Collection) {
if (c.Controls.Count != 0) {
SetControlsBackColor(c.Controls, Backcolor);
}
c.BackColor = Backcolor;
}
}
//=======================================================
//Service provided by Telerik (www.telerik.com)
//Conversion powered by NRefactory.
//Twitter: @telerik
//Facebook: facebook.com/telerik
//=======================================================Public Class Form1
Private Shadows Sub Shown() Handles MyBase.Shown
ControlIterator.PerformAction(Me.Controls, Sub(c As Control)
c.BackColor = Color.Green
End Sub)
End Sub
' ControlIterator
' ( By Elektro )
'
''' <summary>
''' Iterates a serie of Controls to perform an operation.
''' </summary>
Public Class ControlIterator
''' <summary>
''' Perform an operation on all the Controls on the specified Control Collection.
''' </summary>
''' <param name="ControlCollection">Indicates the control collection where to find the controls.</param>
''' <param name="Operation">Indicates the Action to perform on the controls.</param>
''' <param name="ContainsName">Indicates that only controls containing name should be collected.</param>
Public Shared Function PerformAction(ByVal ControlCollection As Control.ControlCollection,
ByVal Operation As [Delegate],
Optional ByVal ContainsName As String = Nothing) As Boolean
Return PerformActionOnControls((From c As Object In ControlCollection), Operation, ContainsName)
End Function
''' <summary>
''' Perform an operation on Controls.
''' </summary>
Private Shared Function PerformActionOnControls(ByVal Controls As IEnumerable(Of Object),
ByVal Operation As [Delegate],
Optional ByVal ContainsName As String = Nothing) As Boolean
If ContainsName IsNot Nothing Then
Controls = Controls.Where(Function(ctrl) ctrl.name.contains(ContainsName))
If Controls.Count = 0 Then Return False
End If
For Each [Control] As Object In Controls
If [Control].InvokeRequired Then
[Control].Invoke(Operation, New Object() {[Control]})
Else
Operation.Method.Invoke(Operation, New Object() {[Control]})
End If
Next [Control]
Return True
End Function
End Class
End Class
using Microsoft.VisualBasic;
using System;
using System.Collections;
using System.Collections.Generic;
using System.Data;
using System.Diagnostics;
public class Form1
{
private new void Shown()
{
ControlIterator.PerformAction(this.Controls, (Control c) => { c.BackColor = Color.Green; });
}
// ControlIterator
// ( By Elektro )
//
/// <summary>
/// Iterates a serie of Controls to perform an operation.
/// </summary>
public class ControlIterator
{
/// <summary>
/// Perform an operation on all the Controls on the specified Control Collection.
/// </summary>
/// <param name="ControlCollection">Indicates the control collection where to find the controls.</param>
/// <param name="Operation">Indicates the Action to perform on the controls.</param>
/// <param name="ContainsName">Indicates that only controls containing name should be collected.</param>
public static bool PerformAction(Control.ControlCollection ControlCollection, Delegate Operation, string ContainsName = null)
{
return PerformActionOnControls((from c in ControlCollection), Operation, ContainsName);
}
/// <summary>
/// Perform an operation on Controls.
/// </summary>
private static bool PerformActionOnControls(IEnumerable<object> Controls, Delegate Operation, string ContainsName = null)
{
if (ContainsName != null) {
Controls = Controls.Where(ctrl => ctrl.name.contains(ContainsName));
if (Controls.Count == 0)
return false;
}
foreach (object Control in Controls) {
if (Control.InvokeRequired) {
Control.Invoke(Operation, new object[] { Control });
} else {
Operation.Method.Invoke(Operation, new object[] { Control });
}
}
return true;
}
}
public Form1()
{
Shown += Shown;
}
}
//=======================================================
//Service provided by Telerik (www.telerik.com)
//Conversion powered by NRefactory.
//Twitter: @telerik
//Facebook: facebook.com/telerik
//=======================================================
Cita de: Senior++ en 7 Febrero 2014, 09:18 AMeso es bueno o malo?
Citarsaltar las combinaciones para que no sean seguidasCreo que tarde o temprano vas a acabar preguntándolo, mejor hazlo ahora, aquí estamos para ayudar... pero si lo preguntas haz el favor de explicarlo con detalles, no de esa manera que he citado porque no hay quien lo entienda xD.
Cita de: Yaldabaot en 6 Febrero 2014, 23:52 PMElektro, ¿ Hay alguna forma de hacerlo pero con un archivo abierto y no un proceso?.
Notepad.exe "Archivo abierto"